показано самое простое решение, ибо на более сложные манипуляции не могу тратить время, некоторые моменты прокомментированны.
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.
