Предмет: Информатика, автор: Losttt

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

Ответы

Автор ответа: Kitsu
0

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.

 

Похожие вопросы
Предмет: Математика, автор: nargizanurgazieva476
Предмет: Математика, автор: uyuyyu755576567567