Program spisok;
Const n=2;
Type uch=Record
fam:string[20];{фамилия}
inctr:string[20];{инструмент}
stag:integer;{стаж}
konk:integer;{участие в конкурсах 0-НЕТ,1-ДА}
end;
Var muz:array[1..n] of uch;{массив записей}
i:integer;
BEGIN
Writeln('Введите записи');
For i:=1 to n do
begin
Writeln(i);
With muz[i] do begin
Writeln('Фамилия ');
readln(fam);
Writeln('Инструмент ');
readln(inctr);
writeln('Cтаж');
readln(stag);
writeln('Участие в конкурсах (0-НЕТ,1-ДА) ');
readln(konk);
end;
end;
Writeln('');
For i:=1 to n do begin
if muz[i].inctr='скрипка' then begin
With muz[i] do begin
Writeln('Фамилия ',fam);
Writeln('Инструмент ',inctr);
writeln('Cтаж',stag);
writeln('Участие в конкурсах (0-НЕТ,1-ДА) ',konk);
end;
end;
end;
END.
Const n=2;
Type uch=Record
fam:string[20];{фамилия}
inctr:string[20];{инструмент}
stag:integer;{стаж}
konk:integer;{участие в конкурсах 0-НЕТ,1-ДА}
end;
Var muz:array[1..n] of uch;{массив записей}
i:integer;
BEGIN
Writeln('Введите записи');
For i:=1 to n do
begin
Writeln(i);
With muz[i] do begin
Writeln('Фамилия ');
readln(fam);
Writeln('Инструмент ');
readln(inctr);
writeln('Cтаж');
readln(stag);
writeln('Участие в конкурсах (0-НЕТ,1-ДА) ');
readln(konk);
end;
end;
Writeln('');
For i:=1 to n do begin
if muz[i].inctr='скрипка' then begin
With muz[i] do begin
Writeln('Фамилия ',fam);
Writeln('Инструмент ',inctr);
writeln('Cтаж',stag);
writeln('Участие в конкурсах (0-НЕТ,1-ДА) ',konk);
end;
end;
end;
END.