30 баллов!!! Здравствуйте, заранее спасибо) От этой задачи зависит моя оценка за...

Question

30 баллов!!! Здравствуйте, заранее спасибо) От этой задачи зависит моя оценка за четверть, поэтому прошу как можно быстрее написать решение, вот сама задача: Составьте программу на языке Паскаль. Имеется массив на 20 чисел, его необходимо заполнить и найти сумму чисел, которые больше 30. Свое решение есть, но я вообще не шарю в информатике.

Answer 1

const n=20;

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

i,s:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(31)+20;

write(a[i]:3,' ');

if a[i] > 30 then s:=s+a[i]

end;

writeln;

write('Сумма чисел, больше 30: ',s)

end.