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