ЛАБОРАТОРНАЯ РАБОТА №2
Дан массив записей, содержащий информацию об автовладельцах (фамилия владельца, марка машины, год выпуска автомобиля, регистрационный номер). Определить долю автомобилей, чей возраст превышает 10 лет, а также количество автомобилей заданной марки.

Код:
Program S2Lab2;
uses crt;
type avto=record
     fam:string[20];
     mark:string[20];
     god:integer;
     nomer:string[20];
     end;
Var sp:array [1..10] of avto;
    a:string;
    q,i,n,w:integer;
Begin
clrscr;
writeln;
write('Vvedite kol vo zapisey (ot 1 do 10): ');
readln(n);
If n>10 then write('Zap bolshe 10!!!! Nado 10<') Else
Begin
writeln('Vvedite dannb)e');
For i:=1 to n do
 Begin
  write('Familia vladelca: ');
   readln(sp[i].fam);
  write('Marca mashini: ');
   readln(sp[i].mark);
  write('God vipuska: ');
   readln(sp[i].god);
  write('Reg nomer: ');
   readln(sp[i].nomer);
 End;
writeln('Vvedite marku');
readln(a);
q:=0;
w:=0;
For i:=1 to n do
Begin
if sp[i].god>10 then q:=q+1;
 If sp[i].mark=a then w:=w+1;
End;
writeln('Vsego mashin starshe 10 let: ',q);
writeln('Vsego mashin zadannoy marki: ',w);
End;
readln;
End.