• Задать массив m(7) случайными числами от 12 до 73. Утроить элементы массива, стоящие на нечетных местах. Утроить чётные элементы массива, стоящие на нечетных местах

Ответы 1

  • var  m: array [1..7] of integer;  i: byte;beginrandomize;writeln('Исходный массив.');for i := 1 to 7 do begin  m[i] := random(61)+12;  write(m[i],' ');end;writeln; writeln;writeln('Утроили стоящие на нечетных местах.');for i := 1 to 7 do begin  if i mod 2 <> 0 then m[i] := m[i]*3;  write(m[i],' ');end;writeln; writeln;writeln('Утроили четные на нечетных местах.');for i := 1 to 7 do begin  if ((i mod 2 <> 0) and (m[i] mod 2 = 0)) then m[i] := m[i]*3;  write(m[i],' ');end;end.
    • Автор:

      francais
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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