1) В массиве, состоящем из 9 элементов, найдите сумму элементов больших 19.
2) В массиве, состоящем из 11 элементов, найдите сумму элементов кратных 27.
Ответы
Ответ дал:
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 год назад
1 год назад
8 лет назад
8 лет назад