Решите пожалуйста 1) Задать массив m(9) случайными числами от 21 до 47 2) Уменьшить на 3 элементы массива, кратные 5
Решите пожалуйста
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
Не нашли ответ?
Похожие вопросы