Написать программу, которая подсчитывает количество положительных и отрицательных элементов файла целых чисел des.dat. Pascal ABC
Ответы на вопрос
Ответил DonPedro80
0
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.
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.
Новые вопросы
Русский язык,
2 года назад
География,
2 года назад
Информатика,
8 лет назад
Физика,
8 лет назад
Математика,
9 лет назад
Математика,
9 лет назад