1) В массиве, состоящем из 9 элементов, найдите сумму элементов больших 19.
2) В массиве, состоящем из 11 элементов, найдите сумму элементов кратных 27.
Ответы на вопрос
Ответил gfhjkmgfhjkm20
0
Ответ:
1.
var a:array[1..9] of integer;
i,s:Integer;
begin
write('Массив ');
for i:=1 to 9 do
begin
a[i]:= random (31);
write(a[i],' ');
if a[i]>19 then s:=s+a[i]
end;
writeln;
writeln('Сумма элементов больших 19 равна ',s)
end.
2.
var a:array[1..11] of integer;
i,s:Integer;
begin
write('Массив ');
for i:=1 to 11 do
begin
a[i]:= random (5)+27;
write(a[i],' ');
if a[i] mod 27 = 0 then s:=s+a[i]
end;
writeln;
writeln('Сумма элементов кратных 27 равна ',s)
end.
Новые вопросы
Литература,
1 год назад
Українська мова,
1 год назад
География,
2 года назад
Математика,
2 года назад
Английский язык,
7 лет назад