01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Массив записей / Куклы

program igruski;

{$APPTYPE CONSOLE}

uses
SysUtils;
type igruski=record
nazvanie:string[10];
zena:integer;
min:integer;
max:integer;
end;
tmas=array[1..10] of igruski;

procedure VVOD (var A:tmas; var n:integer);
var i:integer;
begin
repeat writeln('Vvedite kolichestvo igrushek (ne bolshe 10)');
readln(n);
until n<=10;
for i:=1 to n do begin
writeln('Vvedite nazvanie');
readln(A[i].nazvanie);
writeln('Vvedite zenu');
readln(A[i].zena);
writeln('Vvedite minimalnii vozrast');
readln(A[i].min);
writeln('Vvedite maximalnii vozrast');
readln(A[i].max);
end;
end;


procedure PROV (A:tmas;n:integer;sum:integer;vozr:integer;var C:tmas;var kol:integer);
var i:integer;
begin
kol:=0;
for i:=1 to n do if (sum>A[i].zena) and (vozr>a[i].min) and (vozr<a[i].max) then begin
kol:=kol+1;
C[kol]:=A[i];
end;

end;

procedure VIVOD (A:tmas;kol:integer);
var i:integer;
begin
if kol=0 then writeln('Takix igrushek net')
else writeln ('Nazvanie Zena Min vozr Max vozr');
for i:=1 to kol do writeln (A[i].nazvanie,' ',A[i].zena,' ',A[i].min,' ',A[i].max);
end;

var B,D:tmas;
n,k,summa,vozrast:integer;
begin
VVOD(B,n);
writeln ('Vvedite vashu summu deneg');
readln(summa);
writeln('Vvedite vozrast rebenka');
readln(vozrast);
writeln('Isxodnii massiv');
VIVOD(B,n);
writeln;
writeln('To,chto podoidet po vozrastu i zene');
PROV(B,n,summa,vozrast,D,k);
VIVOD(D,k);
readln;
end.
PROV(B,n,D,k);
VIVOD(D,k);
readln;
end.