30 ! , заранее ) от этой зависит моя оценка за четверть, поэтому как можно быстрее написать решение, вот сама : составьте программу на языке паскаль. имеется массив на 20 чисел, его необходимо заполнить и найти сумму чисел, которые больше 30. свое решение есть, но я вообще не шарю в информатике.
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.