1.Описать структуру с именем Auto, содержащую следующие поля:
◦ Название модели;
◦ год выпуска;
◦ цвет;
2.Написать программу, выполняющую следующие действия:
• Ввод данных с клавиатуры в массив, состоящий из восьми элементов типа Auto; записи должны быть размещены в алфавитном порядке названия моделей;
• Вывод на экран названия моделей, цвет которых введен с клавиатуры, и которые выпущены не позднее года, введенного с клавиатуры; если таких нет, вывести на экран соответствующее сообщение.
program Nikon;
uses crt;
const n=3;
Type
Auto=record
model:string;
year:integer;
cvet:string;
end;
var
a:array[1..n] of Auto;
i,j:byte;
s:string;
z:integer;
x:Auto;
k:string;
f:integer;
m:integer;
begin
clrscr;
for i:=1 to n do
with ado
begin
writeln('vvedite nazvaniyu madeli'
readln(model);
writeln('vvedite year '
for j:=i+1 to n do
if (a.model)>(a[j].model) then
begin
x:=a;
a:=a[j];
a[j]:=x;
end;
for i:=1 to n do
with ado
begin
writeln('model:',model,',year:',year,' ,cvet:',cvet);
end;
writeln('vvedite cvet'
readln(s);
writeln('vvedite year' ;
readln(z);
f:=0;
for i:=1 to n do
if (a.cvet=s)and (a.year>z) then
begin
f:=f+1;
writeln('model:',a.model,',year:',a.year,' ,cvet:',a.cvet);
end;
if f=0 then
writeln('takix netu'
readln;
end.
0