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

Найдите сумму положительных элементов заданного массива, содержащего 5 чисел

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

Var
a: array [1..5] of integer;
s, i: integer;
begin
for i:=1 to 5 do
begin
write(Введите значение: );
read(a[i]);
if a[i]>0 then s:=s+a[i];
end;
writeln(Сумма положительных членов массива: , s);
end.