Учеба и наука

• Всего ответов: 1


Алексей Чудинов
10-й в Технологиях
4.9 23 отзыва
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, 2011 г.
Ответ понравился автору
Лучший ответ по мнению автора

Похожие вопросы