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

1

Ответы и объяснения

  • ali07
  • главный мозг
2011-11-20T15:22:21+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.