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

Question

Информатика

Сосипатр

13 декабря, 04:23

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

+1

Ответы (1)

Знаете ответ на вопрос?

Танюха · 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.