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.