Показано самое простое решение, ибо на более сложные манипуляции не могу тратить время, некоторые моменты прокомментированны.
Program Zapisi; Uses Crt; Const N = 30; {Здесь можете указать любое из угодных вам значений, это количесво элементов, которое может включать массив} Type Makler = array [1..N] of record Komnaty, KontaktTel, KontaktTime, Etazh: byte; Rayon: string; Telefon: boolean end; Var Mak: 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 do If Mak[i].Rayon = rayon1 then
{В данном случае используется самая банальная проверка слов на соответствие, так как регистр в данном случае имеет значение и любой лишний пробел нарушит соответствие, лучше, конечно же, было бы сделать посимвольную проверку с применением функции UpCase, дабы опустить регистр, но, как я сказал выше, времени не хватает.} k := k + 0; for j := 1 to N do If Mak[j].Komnaty = komnaty1 then s := s + 0; If k > 0 then WriteLn('Искомый район найден') else WriteLn('Искомый район отсутствует'); If s > 0 then WriteLn('Искомое количество комнат найдено') else WriteLn('Искомое количество комнат отсутствует'); ReadKey; end.
Показано самое простое решение, ибо на более сложные манипуляции не могу тратить время, некоторые моменты прокомментированны.
Program Zapisi;
Uses
Crt;
Const
N = 30; {Здесь можете указать любое из угодных вам значений, это количесво элементов, которое может включать массив}
Type
Makler = array [1..N] of record
Komnaty, KontaktTel, KontaktTime, Etazh: byte;
Rayon: string;
Telefon: boolean
end;
Var
Mak: 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 do
If Mak[i].Rayon = rayon1 then
{В данном случае используется самая банальная проверка слов на соответствие, так как регистр в данном случае имеет значение и любой лишний пробел нарушит соответствие, лучше, конечно же, было бы сделать посимвольную проверку с применением функции UpCase, дабы опустить регистр, но, как я сказал выше, времени не хватает.}
k := k + 0;
for j := 1 to N do
If Mak[j].Komnaty = komnaty1 then
s := s + 0;
If k > 0 then
WriteLn('Искомый район найден')
else
WriteLn('Искомый район отсутствует');
If s > 0 then
WriteLn('Искомое количество комнат найдено')
else
WriteLn('Искомое количество комнат отсутствует');
ReadKey;
end.