Question

Получить список учеников музыкальной школы, которые учатся играть на скрипке. Указать также, сколько лет они занимаются музыкой и принимали ли участие в каких-либо конкурсах

Answer 1

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.