• Решите пожалуйста
    1) Задать массив m(9) случайными числами от 21 до 47
    2) Уменьшить на 3 элементы массива, кратные 5

Ответы 1

  • 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;  Writelnend.Пример работы программы34 30 40 28 30 47 23 41 30 34 27 37 28 27 47 23 41 27
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years