Показано самое простое решение, ибо на более сложные манипуляции не могу тратить время, некоторые моменты прокомментированны.Program Zapisi; UsesCrt; ConstN=30; {Здесь можете указать любое из угодных вам значений, это количесво элементов, которое может включать массив}TypeMakler=array [1… N] of recordKomnaty, KontaktTel, KontaktTime, Etazh: byte; Rayon: string; Telefon: booleanend; VarMak: Makler; i,j,k,s,komnaty1: byte; rayon1: string; beginСlrScr; s: =0; k: =0; WriteLn ('Введите район: '); ReadLn (rayon1); WriteLn ('Введите количество комнат: '); ReadLn (komnaty1); for i: =1 to N doIf Mak[i].Rayon=rayon1 then{В данном случае используется самая банальная проверка слов на соответствие, так как регистр в данном случае имеет значение и любой лишний пробел нарушит соответствие, лучше, конечно же, было бы сделать посимвольную проверку с применением функции UpCase, дабы опустить регистр, но, как я сказал выше, времени не хватает.}k: =k+0; for j: =1 to N doIf Mak[j].Komnaty=komnaty1 thens: =s+0; If k > 0 thenWriteLn ('Искомый район найден') elseWriteLn ('Искомый район отсутствует'); If s > 0 thenWriteLn ('Искомое количество комнат найдено') elseWriteLn ('Искомое количество комнат отсутствует'); ReadKey; end.
