Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем - нечетные.

@p473 · Регистрация: 18.10.2010

Студворк — интернет-сервис помощи студентам

Помогите:
Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем - нечетные.

@Dmitriy_VS · 23.10.2010, 17:57

Pascal

Program mas;
Var A:array[1..N] of integer;
    i:integer;
Begin
     for i:=1 to N do
         Begin
         Write ('Введите элемент массива ');
         Readln (A[i]);
         end;
     Write ('Четные элементы массива:');
     for i:=1 to N do
         if (A[i] mod 2 = 0) then Write (A[i],' ');
     Write ('Неччетные элементы массива:');
     for i:=1 to N do
         if (A[i] mod 2 = 1) then Write (A[i],' ');
End.

@Lyohich84 · 23.10.2010, 17:58

Pascal

uses crt;
var
a:array[1..100] of integer;
i,n:byte;
begin
clrscr;
write('razmernost massiva=');readln(n);
randomize;
for i:=1 to n do
 a[i]:=random(101)-50;
writeln('Ishodniy Massiv');
for i:=1 to n do
  write(a[i]:5);
writeln;
writeln('Chetniye elementi');
for i:=1 to n do
 if odd(a[i])=false then write(a[i]:5);
writeln;
writeln('Nechetniye elementi');
for i:=1 to n do
 if odd(a[i]) then write(a[i]:5);
readln
end.

@p473 · 23.10.2010, 18:00 **[ТС]**

Dmitriy_VS, Lyohich84, Спасибо огромное!

@Mad_Dog · 23.10.2010, 19:19

Pascal

1	if odd(a[i])=false then write(a[i]:5);

то же самое, но только.... в профиль...

Pascal

1	if not odd(a[i]) then write(a[j]:5);

@Кристина25 · 10.05.2012, 19:05

А вы не подскажете как эту задачу решить в делфи на форме?

@p473 1 / 1 / 0 Регистрация: 18.10.2010 Сообщений: 79
		1
	Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем - нечетные. 23.10.2010, 17:04. Показов 18653. Ответов 5 Метки нет (Все метки) Помогите: Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем - нечетные. 0

@p473 1 / 1 / 0 Регистрация: 18.10.2010 Сообщений: 79
	23.10.2010, 18:00 [ТС]	4
	Dmitriy_VS, Lyohich84, Спасибо огромное! 0

@Кристина25 2 / 2 / 0 Регистрация: 08.05.2012 Сообщений: 43
	10.05.2012, 19:05	6
	А вы не подскажете как эту задачу решить в делфи на форме? 0

Опции темы