Создать массив случайных чисел A[1 ... 30] Найти сумму элементов этого массива, которые больше 9. Написать на паскале

Question

Информатика

Сергуня

17 ноября, 06:45

Создать массив случайных чисел A[1 ... 30] Найти сумму элементов этого массива, которые больше 9. Написать на паскале

+1

Ответы (1)

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

Греция · Answer 1

var a:array[1 ... 30]of integer;

i, s:integer;

begin

for i:=1 to 30 do begin

a[i]:=random (20) + 1; {промежуток от 1 до 20}

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

write (a[i],' ') ;

end;

writeln;

writeln (s) ;

end.