• Написать программу, которая подсчитывает количество положительных и отрицательных элементов файла целых чисел des.dat. Pascal ABC

Ответы 1

  • var  f:file of integer;  i,n,kp,ko:integer;begin  { создать файл }  randomize;  assign(f,'des.dat');  rewrite(f);  for i:=1 to 20 do  begin    n:=random(101)-50;    Write(n,' ');    Write(f,n)  end;  close(f);  Writeln;  { работа с файлом }  ko:=0;  kp:=0;  reset(f);  while not eof(f) do  begin    Read(f,n);    if n>0 then Inc(kp)    else if n<0 then Inc(ko)  end;  close(f);  Writeln('Положительных ',kp,', отрицательных ',ko)end.
    • Автор:

      rexnkps
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years