program pr_a;
var a: array[1..10] of integer;
i, x, y: integer;
begin
x: =0;
y: =0;
for i: =1 to 10 do
begin
a[i]: =random(11);
write(a[i],' ');
writeln;
end;
for i: =1 to 10 do
begin
if a[i] mod 2=0 then
x: =a[i]*2
else
y: =a[i]*3;
write(y,' ');
write(x,' ');
end;
end.
а дальше мне лень : )
Поделитесь своими знаниями, ответьте на вопрос: