ПОМОГОТЕ!!!!! ОЧЕНЬ СРОЧНО!!!!! Ввести из текстового файла одномерный целочисленный...

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
begin
var a:=ReadAllText('filein.txt').ToIntegers; a.Println;
(var p,var z, var n):=(0,0,0);
foreach var k in a do
    if k>0 then p+=1
    else
      if k=0 then z+=1 else n+=1;
Writeln('Положительных ',p,', нулей ',z,' отрицательных ',n)
end.

Пример
-5 8 3 11 7 0 -2 7 4
Положительных 6, нулей 1 отрицательных 2

Вас так не учили? Печально! Осваивайте современную технику программирования!

Скачать вложение Текст (TXT)