Сформировать новый массив, вначале которого все стояли четные значения элементов, затем нечетные

@orehh · Регистрация: 22.03.2013

задача3-Сформировать одномерный целочисленный массив из 80 элементов. Сформировать новый массив, вначале которого все стояли четные значения элементов, затем нечетные.

@Puporev · 22.03.2013, 14:34

Pascal

uses crt;
const n=80;
var a:array[1..n]of integer;
    i,k,j,x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then
 begin
  k:=k+1;
  x:=a[i];
  for j:=i downto k+1 do
  a[j]:=a[j-1];
  a[k]:=x;
 end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i]:4);
readln
end.

@orehh 0 / 0 / 0 Регистрация: 22.03.2013 Сообщений: 9
		1
	Сформировать новый массив, вначале которого все стояли четные значения элементов, затем нечетные 22.03.2013, 10:16. Показов 1588. Ответов 1 Метки нет (Все метки) задача3-Сформировать одномерный целочисленный массив из 80 элементов. Сформировать новый массив, вначале которого все стояли четные значения элементов, затем нечетные. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Сформировать новый массив, вначале которого все стояли четные значения элементов, затем нечетные

Решение