Регистрация
AsdZaKAsd
23.09.2020 01:04
Информатика
Есть ответ 👍

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

294
491
Посмотреть ответы 2

Ответы на вопрос:

ппсомо3657
ппсомо3657
4,6(24 оценок)

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.

brzruchkovika
brzruchkovika
4,4(61 оценок)

Через завершение работы не через розетку

Популярно: Информатика