Var
i:integer;
n:real;
f:file of real;
begin
Assign(f,'in.dat');
Rewrite(f);
Writeln('Введите 9 вещественных чисел');
for i:=1 to 9 do begin Read(n); Write(f,n) end;
Close(f)
end.
<em><u>Пример ввода:</u></em>
Введите 9 вещественных чисел
2 -5 1.45 -81.34 5.63e-10 0 -13.45e12 17.5353 -12e-3 1000
Смотри хороший сайт_pascal.helpov.net
var i,min:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do begin
if a[i]<0 then min:= min+1;
end;
writeln('Количество отрицательных элементов:',min);
end.