Программа будет работать при условии, что указанный файл с целыми числами существует!
Function P(name:string):integer;
var f:file of integer;
a,min:integer;
begin
Assign(f, name);
Reset(f);
Read(f,min);
while not eof(f) do
begin
read(f,a);
if abs(a)<abs(min) then min:=a;
end;
Close(f);
P:=min;
end;
var s:string;
begin
writeln('Введите имя файла:');
readln(s);
writeln('min = ',P(s));
end.
Возможный ответ в приложении
Но должен быть более простой ответ
var
k,l,n,i: integer;
a: array[1..100] of boolean;
b: char;
begin
k:=0; l:=0;
write ('Введите длину массива: ');
readln (n);
writeln ('Введите массив:');
for i:=1 to n do begin
readln (b);
case b of
'F','f': a[i]:=false;
'T','t': a[i]:=true;
else begin writeln ('неверные данные '); exit; end;
end;
if a[i]=true
then k:=k+1
else
if (k>0) and (k>l)
then begin l:=k; k:=0 end
else k:=0;
end;
if (k>0) and (k>l) then l:=k;
for i:=1 to n do begin
write (a[i]:7);
if i mod 8 =0 then writeln;
end;
writeln;
writeln ('Длина = ',l)
end.
----------------результат:-----------------
Введите длину массива: 16
Введите массив:
t
t
t
t
t
t
f
t
t
t
t
t
f
t
t
t
True True True True True True False True
True True True True False True True True
Длина = 6
Var t:integer;
begin
t:=0;
repeat
t:=t+1;
t:=t*3;
until t>13;
writeln('Vyvod ',t);
<span>end.</span>
Program z1;
var i,n:byte;
f:int64;
begin
f:=1;
readln(n);
for i:=1 to n do begin
f:=f*i
end;
writeln(f);
readln
<span>end.</span>
