Код
Type
rec=record
FIO:string[30];
Vozr:integer;
adress:string[30];
end;
mas=array[1..10] of rec;
Var
f:text;
e1,j,Min_age,k:integer;
m:mas;
Procedure inp(var a:mas);
var i:integer;
begin
readln(f,a[i].FIO);
readln(f,a[i].Vozr);
readln(f,a[i].adress);
end;
Procedure output(var a:mas);
var i:integer;
begin
Inc(i);
writeln(f,a[i].FIO);
writeln(f,a[i].Vozr);
writeln(f,a[i].adress);
end;
procedure find (var a:mas);
var i:integer;
begin
Min_age:=100;
for i:=j to e1 do
With m[j] do
if (Vozr<Min_age) and (Vozr>=20) and (Vozr<=30) then
begin
k:=j;
Min_Age:=Vozr;
end;
end;
Begin
assign(f,'file.txt');
reset(f);
close(f);
inp(m,e1);
output(m,e1);
find(m,e1);
Writeln('Результат:');
Writeln(m[k].FIO);
Writeln(m[k].Vozr);
Writeln(m[k].adress);
Readln
End.
Нужно поправить процедуры и сделать из глобальных переменных - локальные.
p.s из списка должен выводиться работник с мин.возрастом, который попадает в диапазон 20-30 лет. file.txt ( 498 байт ) Кол-во скачиваний: 466