Предмет:
ИнформатикаАвтор:
sanaanfkkАвтор:
rhettbarronАвтор:
jonesАвтор:
victoriarobinsonconst 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.
Автор:
douglasvhqkДобавить свой ответ
Предмет:
МатематикаАвтор:
toffee21Ответов:
Смотреть
Предмет:
ЛитератураАвтор:
homerogarzaОтветов:
Смотреть