Uses crt;
Type
book=Record
fam: String;
adr: String;
nom: String;
mar: String;
end;
Var
x: Array[1..10] of book;
i,k: Integer;
ul,m: String;
BEGIN
Clrscr;
For i:=1 to 10 do
begin
Writeln('Введите фамилию: '); Readln(x[i].fam);
Writeln('Введите адрес: '); Readln(x[i].adr);
Writeln('Введите номер: '); Readln(x[i].nom);
Writeln('Введите марку: '); Readln(x[i].mar);
end;
Writeln('Критерии поиска');
Writeln('Введите улицу: '); Readln(ul);
Writeln('Введите марку: '); Readln(m);
For i:=1 to 10 do
If (x[i].adr=ul) and (x[i].mar=m) Then
Inc(k);
Writeln('Кол-во автовладельцев, проживающих на заданной улице и имеющих авто заданной марки: ',k);
Readln
END.
я знаю, что это можно записать так. Но как это записать посчёт этого количества в функции?