Помогите пожалуйста.

[KamillaKamiKam]

Добрый день, мне очень нужна ваша помощь.
Дан целочисленный массив состоящий из 30 элементов. Вывести кол-во положительных,отрицательных и нулевых элементов,используя (1'txt') Программа нужна для паскаль ABC, желательно объяснить что и как получилось, если не трудно, заранее спасибо.

[ZX Spectrum-128]

Kp:=0;
Ko:=0;
K0:=0;
For i:=1 to n do
  Begin
    If a[i]>0 then kp:=kp+1;
    If a[i]=0 then k0:=k0+1;
    If a[i]<0 then ko:=ko+1;
  End;

используя (1'txt')

Что?

[KamillaKamiKam]

Спасибо вам огромное, сама точно не поняла, я пропустила занятие, но объяснили что нужно сделать через блокнот, что-то типа вот такой программы:
var t:text
s:string;
begin
assign(t'1.txt');
reset(t);
repeat
readln(t,s);
writeln(s);
until(eof(t));
close(t);
end. Как я поняла, я пишу что-то в блокноте, программа читает, перезаписывает и выводит результат так же в блокноте.

[ZX Spectrum-128]

var 
  t:text;
  s:string;
  kp,k0,ko,i:integer;
begin
  Kp:=0;
  Ko:=0;
  K0:=0;
  assign(t,'1.txt');
  reset(t);
  while not eof(t) do
    begin
      readln(t,s);
      i:=strtoint(s);
      If i>0 then kp:=kp+1;
      If i=0 then k0:=k0+1;
      If i<0 then ko:=ko+1;
    end;
  close(t);
  append(t);
  writeln(t);
  writeln(t,'Количество отрицательных чисел = ',ko);
  writeln(t,'Количество положительных чисел = ',kp);  
  writeln(t,'Количество нулей = ',k0);    
  close(t);
end.

Проверок на ошибки нет.

[Son Of Pain]

В паскале ж можно напрямую инты из файла читать, минуя strtoint )

[KamillaKamiKam]

Спасибо вам огромнейшее, вы очень мне помогли.

[ZX Spectrum-128]

Сообщение от Son Of Pain

В паскале ж можно напрямую инты из файла читать, минуя strtoint )

Это я подзабыл
Спасибо за напоминание, учту в дальнейшем.