Pascal abc имеется массив данных о k работающих в фирме: фамилия, имя, отчество, адрес(улица, дом, квартира) и дата поступления на работу(месяц, год). во второй массив записать только тех из них, кто проживает по определённой улице. название этой улицы ввести с клавиатуры.

//большую часть времени убил на тесты //pascal abc.net v3.1 сборка 1172 type   ty=record   sub,name,ot,ul,kv,ho: string;   mo,ye: integer;   end; var   ar1,ar2: array of ty;   k,i,n: integer;   s: string; begin   readln(k);   setlength(ar1,k);   n: =0;   for i: =0 to k-1 do   begin     write('введите фамилию рабочего №',i+1,': '); readln(ar1[i].sub);     write('введите имя рабочего: №',i+1,': '); readln(ar1[i].name);     write('введите отчество рабочего: №',i+1,': '); readln(ar1[i].ot);     write('введите улицу проживания рабочего: №',i+1,': '); readln(ar1[i].ul);     write('введите дом проживания рабочего: №',i+1,': '); readln(ar1[i].ho);     write('введите квартиру проживания рабочего: №',i+1,': '); readln(ar1[i].kv);     write('введите месяц поступления на работу рабочего: №',i+1,': '); readln(ar1[i].mo);     write('введите год поступления на работу рабочего: №',i+1,': '); readln(ar1[i].ye);   end;   write('введите искомую улицу: '); readln(s);   writeln('результаты: ');   for i: =0 to k-1 do   begin     if ar1[i].ul=s then       begin         inc(n);         setlength(ar2,n);         ar2[n-1]: =ar1[i];         writeln('рабочий #',i+1,',', ar2[n-1].sub,' ',ar2[n-1].name,' ',ar2[n-1].ot);         writeln('адрес: ',ar2[n-1].ul,' ',ar2[n-1].ho,',',ar2[n-1].kv);         writeln('дата поступления на работу: ',ar2[n-1].mo,',',ar2[n-1].ye);       end;   end; end.         пример ввода: 3 введите фамилию рабочего №1: хацуне введите имя рабочего: №1: мику введите отчество рабочего: №1: ивановна введите улицу проживания рабочего: №1: омотесандо введите дом проживания рабочего: №1: 23 введите квартиру проживания рабочего: №1: 34 введите месяц поступления на работу рабочего: №1: 1 введите год поступления на работу рабочего: №1: 1998 введите фамилию рабочего №2: двачевская введите имя рабочего: №2: алиса введите отчество рабочего: №2: петровна введите улицу проживания рабочего: №2: пушкина введите дом проживания рабочего: №2: 223 введите квартиру проживания рабочего: №2: 34 введите месяц поступления на работу рабочего: №2: 2 введите год поступления на работу рабочего: №2: 1997 введите фамилию рабочего №3: персунов введите имя рабочего: №3: семён введите отчество рабочего: №3: олегович введите улицу проживания рабочего: №3: омотесандо введите дом проживания рабочего: №3: 23 введите квартиру проживания рабочего: №3: 34 введите месяц поступления на работу рабочего: №3: 6 введите год поступления на работу рабочего: №3: 2000 введите искомую улицу: омотесандо пример вывода: результаты: рабочий #1,хацуне мику ивановна адрес: омотесандо 23,34 дата поступления на работу: 1,1998 рабочий #3,персунов семён олегович адрес: омотесандо 23,34 дата поступления на работу: 6,2000

100111011

Объяснение:

6 единиц