Задание:
Дан массив d (n). Заменить элементы массива кратные 3 на их удвоеное произведение.
Решение:
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]); readlnend.
Знаете другой ответ?