НАПИСАТЬ ДЛЯ PASCAL [за спам сразу бан] Тема : оператор цикла с параметром FOR (обязательно использовать)
Решить задачу:
Вводится последовательность из N целых чисел. Найти сумму всех положительных чисел..

var

N,x,s,i : integer;

begin

s:=0;

readln(N);

for i := 1 to N do

begin

readln(x);

if x > 0 then

s := s + x;

end;

if s > 0 then

writeln(s)

else  

writeln('Нет положительных чисел');

end.

program Hello;

const N : integer = 10;

var i, sum, val: integer;

begin

 sum := 0;

 for i := 1 to N do

 begin

   read(val);

   if val > 0 then

     sum := sum + val;

 end;

 if sum > 0 then

   writeln ( sum )

 else

   writeln ( 'No positive values' )

end.

Объяснение: