Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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: ');
write(d[i]);
if d[i] mod 3 = 0 then d[i]: = 2 * d[i];
writeln ('полученный массив d: ');
readln
end.
напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет
бег-бог-лог-лаг-шаг
бант-кант-карт-кара-кора-коса
шар-бар-бам-бум-кум-куб
муха-мура-фура-фора-кора-корн-коан-клан-клон-слон
миг-маг-мак-бак-бек-век
3 учеников этого класса любят все три вида спорта
Популярные вопросы