Задачка срочно!!! - вопрос №147619

Дан Массив натуральных чисел a[1],a[2],...,a[h] Создать массив из четных чисел этой последовательности Если таких чисел нет, то вывести сообщение об этом факте

Лучший ответ по мнению автора

var a,b:array[1..100];

h,i,n:intedger;

begin

readln(h);

for i:=1 to h do  

readln(a[i]);

n:=1;

for i:=1 to h do  

if a[i] mod 2=0 then

begin

b[n]:=a[i];

n:=n+1;

end;

if n>1

then 

for i:=1 to n do  writeln(b[i],' ');

else

writeln('net chetnih');

end.

 

могут быть опечатки

21.11.11
Лучший ответ по мнению автора

Еva

Читать ответы

1 1

Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store