Задать вопрос Регистрация
Помочь другим

  • Дан массив d(n).Заменить элементы массива кратные 3 на их удвоеное произведение.

Ответы 1

  • program xxx;

      var i, n : integer

               d : array[1..30] of real;

    begin

      write ('введите разметность массива n=');

      readln(n);

      writeln(''введите элементы массива d:');

      for i:=1 to n do

         readln(d[i]);

      writeln ('исходный массив D:');

      for i:=1 to n do

        write(d[i]);

      for i:=1 to n do

        if d[i] mod 3 = 0 then d[i]:= 2 * d[i];

      writeln ('полученный массив D:');

      for i:=1 to n do

        write(d[i]);

      readln

    end.

    • Автор:

      chloe65uw
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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