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.
Var a,k1,k2,s:integer; begin writeln('Вводите целые числа. Конец ввода - 0'); k1:=0; k2:=0; s:=0; readln(a); while a<>0 do begin if (a mod 2 = 0)and(a<0) then k1:=k1+1; if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end; readln(a); end; writeln('количество четных отрицательных чисел = ',k1); if k2>0 then writeln('среднее арифметическое нечётных чисел = ',s/k2) else writeln('в последовательности нет нечётных чисел'); end.
Пример: Вводите целые числа. Конец ввода - 0 18 -45 10 -62 70 0 количество четных отрицательных чисел = 1 среднее арифметическое нечётных чисел = -45
Var a,k1,k2,s:integer; begin writeln('Вводите целые числа. Конец ввода - 0'); k1:=0; k2:=0; s:=0; readln(a); while a<>0 do begin if (a mod 2 = 0)and(a<0) then k1:=k1+1; if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end; readln(a); end; writeln('количество четных отрицательных чисел = ',k1); if k2>0 then writeln('среднее арифметическое нечётных чисел = ',s/k2) else writeln('в последовательности нет нечётных чисел'); end.
Пример: Вводите целые числа. Конец ввода - 0 18 -45 10 -62 70 0 количество четных отрицательных чисел = 1 среднее арифметическое нечётных чисел = -45
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.