Question

Из ассортимента конфет, выпускаемых кондитерской фабрикой, выбрать те, стоимость которых от 100 до 200 руб. за 1 кг. Указать срок их годности и номера магазинов, в которых они имеются в продаже.

Answer 1

type konf=record
  name: string[45];
   cena:integer;
   god:integer;
   mag:integer;
end;
var kon: array [1..100] of konf;
   I,k,max: integer;
   a:array[1..100]of integer;
begin
   for I:=1 to 3 do
   begin
      writeln ('введите название');
      readln (kon[I].name);
      writeln ('введите цену');
      readln (kon[I].cena);
      writeln ('введите срок годности');
      readln (kon[I].god);
      writeln ('введите номер магазина');
      readln (kon[I].mag);
      end;
for i:=1 to 3 do
if (kon[I].cena>=100) and (kon[I].cena<=200) then begin
writeln(kon[I].name);
writeln(kon[I].god);
writeln(kon[I].mag);end;
readln;
end.