Автор =) задал вопрос в разделе ВУЗы, Колледжи
Дан целочисленный массив размера N. и получил лучший ответ
Ответ от Ўрик[гуру]
program example1;
uses crt;
const n1=100;
var a:array[1..n1] of integer;
n,i:integer;
begin
clrscr;
randomize;
write('n = ');
read(n);
for i:=1 to n do
begin
a[ I ]:=random(20);
write(a[ I ],' ');
end;
writeln;
for i:=1 to n do
if not odd(a[ I ]) then write(a[ I ],' ');
writeln;
for i:=n downto 1 do
if odd(a[ I ]) then write(a[ I ],' ');
writeln;
readkey
end.
Юрик
Высший разум
(117040)
Не понимаю этой фразы. У меня всё работает так, как по условию задачи.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Дан целочисленный массив размера N.