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

Question

Информатика

Зенона

27 апреля, 00:44

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

+3

Ответы (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.