Составить программу для решения задачи.Найти сумму всех положительных элементов...

Question

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

Answer 1

var

i, s:integer;

a: array [1..7] of integer;

begin

for i:=1 to 7 do

begin

writeln('Введите эл. массива A[', i, ']');

readln(A[i]);

end;

for i:=1 to 7 do

if a[i]>0 then s:=s+a[i];

writeln('Сумма всех положительных элементов массива: ', s);

end.

Comments

Огромное Вам спасибо!!!!!Удачи Вам!