Программа будет работать при условии, что указанный файл с целыми числами существует!
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.
Допили код под свою прогу,а лучше переходи на питон,там такие вещи легче делаются
Человек и маленькая обезьяна
человек большая обезьяна и возврат обезьяны
человек большая обезьяна и возврат обезьяны
Большая и маленькая обезьяна
человек и большая обезьяна.3 человек переправить через реку а обезьяны нет.у меня получилось так)))
Const nx=30; mx=30;
var r:array[1..nx,1..mx] of integer;b:array[1..mx] of integer;
i,j,n,m,k,sum,min:integer;
begin
min:=40;
randomize;
write('Введите n,m: ');readln(n,m);
writeln('Исходная матрица: ');
for j:=1 to m do begin
for i:=1 to n do begin
r[i,j]:=random(20)-10;
sum:= sum + r[i,j];end;
b[j]:=sum;sum:=0;
end;
for i:=1 to n do begin
for j:=1 to m do begin
write(r[i,j]:4);end;
writeln;end;
writeln;
for j:=1 to m do begin
write(b[j]:4);
if min > b[j] then begin
min:= b[j]; k:= j;end;
end;
writeln;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if j=k then write(r[i,j]:4);end;
writeln;end;
end.