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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.