Вопрос от посетителя:
Дан массив 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]);
readln
end.