const n=10;
var a: array[1..n] of integer;
i,s:integer;
begin
write('Массив: ');
for i:=1 to n do
a[i]:=random(90)+10;
write(a[i]:3,' ');
if a[i]>30 then s:=s+a[i]
end;
writeln;
writeln ('Сумма чисел больше 30 равна ',s)
end.
30+40+50+60+25=70+110+25=180+25=205
Не за что✔
const n=10;
var a: array[1..n] of integer;
i,s:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i]:3,' ');
if a[i]>30 then s:=s+a[i]
end;
writeln;
writeln ('Сумма чисел больше 30 равна ',s)
end.