Предмет: Информатика,
автор: Losttt
Создать массив случайных чисел A[1...30] Найти сумму элементов этого массива, которые больше 9. Написать на паскале
Ответы
Автор ответа:
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
Предмет: Математика,
автор: ybrfyjh689
Предмет: Русский язык,
автор: aniaaaaaaaaaaaal
Предмет: Математика,
автор: uyuyyu755576567567