Решите пожалуйста 1) Задать массив m(9) случайными числами от 21 до 47 2) Уменьшить на
Решите пожалуйста
1) Задать массив m(9) случайными числами от 21 до 47
2) Уменьшить на3 элементы массива, кратные 5
Гость
Ответ(ы) на вопрос:
Гость Const
n=9;
var
i:integer;
m:array[1..n] of integer;
begin
Randomize;
for i:=1 to n do
begin m[i]:=Random(27)+21; Write(m[i],) end;
Writeln;
for i:=1 to n do begin
if m[i] mod 5=0 then m[i]:=m[i]-3; Write(m[i],)
end;
Writeln
end.
Пример работы программы
34 30 40 28 30 47 23 41 30
34 27 37 28 27 47 23 41 27
Не нашли ответ?
Похожие вопросы