Массивы

[Лида200915]

Дан массив a размерности n. Раскидать его на два массива-b и c. в один поместить четные, в другой нечетные. Спасибо заранее)))

[russian-stalker]

Какой язык то хоть?

[Лида200915]

паскаль........

[russian-stalker]

Как пример:

program Project1;

{$APPTYPE CONSOLE}
var
a,b:array[0..1000] of integer;
i,j:integer;
s:string;
begin
writeln('Vvedite elementi massiva: ');
for I := 0 to 1000 do
begin
readln(j);
  if j mod 2=0 then
  begin
  a[i]:=j;
  writeln('Chetnoe: ', a[i]);
  end else
  begin
  b[i]:=j;
  writeln('Nechetnoe: ', b[i]);
  end;
end;
readln(i);
end.