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

Question

Информатика

Леоня

12 августа, 11:47

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

+2

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