Вывести количество чисел: отрицательных, нулей, принадлежащих диапазону [1..1024] - Free Pascal

Формулировка задачи:

Пользователь вводит n чисел.Вывести количество введенных отрицательных ,равных 0 , и в диапазоне от 1 до 1024. После этого если вводится символ "J" или "L", случится выход из программы, или -- исполнение программы повторяется.

Код к задаче: «Вывести количество чисел: отрицательных, нулей, принадлежащих диапазону [1..1024] - Free Pascal»

textual
var
  n, e, kn, k0, kr: Integer;
  c: Char;
begin
  repeat
    Write('N: '); Read(n);
    kn:=0; k0:=0; kr:=0;
    for n:=1 to n do begin
      Read(e);
      if e<0 then Inc(kn)
      else if e=0 then Inc(k0)
      else if e<=1024 then Inc(kr);
    end;
    WriteLn('<0: ',kn,'  =0: ',k0,'  [1..1024]: ',kr);
    repeat
      Write('Продолжить? (J - нет, L - да): '); ReadLn(c);
    until c in ['J','j','L','l'];
  until c in ['J','j'];
end.

5   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ