Найти сумму элементов массива, значения которых не превышают 6.

Question

Информатика

Гуша

22 сентября, 21:10

Найти сумму элементов массива, значения которых не превышают 6.

+3

Ответы (1)

Знаете ответ?

Нида · Answer 1

Var i, s, n:integer;

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

begin

write ('введите количество элементов массива') ;

read (n) ;

for i:=1 to n do begin

a[i]:=random (10) ;

if a[i]<=6 then s:=s+a[i];

end;

writete ('Ответ:', s) ;

end.