Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Помогите ,поооожалуйста!Срочно очееень
последовательно вводятся n целых чисел найти сумму всех положительных среди них проверить для n =10

Ответ оставил Гость

Var A:array [1..10] of integer;
I,S:integer;

begin
for i:= 1 to 10 do begin
writeln(A[,i,]=);
readln(A[i]);
end;

S:=0;
for i:= 1 to 10 do
if (A[i]>0) then s:=s+A[i];
writeln(S=,S);
readln;
end.