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

Анюта3Б Анюта3Б    1   16.04.2019 23:00    24

Ответы
nurmuh4med nurmuh4med  16.04.2019 23:00
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы