Отчет по практике: Язык программирования Pascal

writeln ('Направление ',a [i]. Nap,' ','время ',a [i]. vy);

f: =1; end;

if f=0 then writeln ('таких нет');

end; end;

2: begin

writeln ('введите время которое вы хотите поменять');

readln (s);

writeln ('введите время на которое вы хотите поменять');

readln (s1);

for i: =1 to n do begin

if a [i]. vy=s then a [i]. vy: =s1;

end;

for i: =1 to n do

begin

writeln (i,’ ’,'машинист ',a [i]. fio,' ','Направление ',a [i]. Nap);

writeln ('время ',a [i]. vy);

writeln;

end; end;

3: begin

writeln ('введите Направление поезда, которое вы хотите удалить');

readln (r);

for i: =1 to n do begin

if a [i]. Nap=r then

k: =i;

for i: =1 to n do

if i<>k then

writeln (i,’ ’,'машинист ',a [i]. fio,' ','Направление ',a [i]. Nap);

writeln ('время ',a [i]. vy);

end;