Автор: Bronislav

Bronislav — Wed, 21 Feb 2018 11:02:50 +0000

begin
  var n:=ReadlnInteger('n =');
  println('введите',n,'целых чисел:');
  var a:=ReadArrInteger(n);
  write('четные: '); a.Where(t->t.isEven).Println;
  print('всего четных:',a.Count(t->t.isEven));
  readln;
end.

begin

var n:=ReadlnInteger('n =');

println('введите',n,'целых чисел:');

var a:=ReadArrInteger(n);

write('четные: '); a.Where(t->t.isEven).Println;

print('всего четных:',a.Count(t->t.isEven));

readln;

end.

Комментарии: Решаем задачи Абрамян на Паскале. Series8

Автор: Bronislav