Question

В сведениях об экспортируемых товарах указывается наименование товара, страна, импортирующая товар, и объем поставляемой партии в штуках. Составить список стран, в которые экспортируется данный товар, и общий объем его экспорта

Answer 1

type
tovar=record
name: string[20];
country:string[20];
v:integer;
end;
 
var
j, volume, vv, code,n ,i:integer;
s, t, t1 :string[20];
d :array[1..5] of tovar;
f :text;    l:tovar;
begin
assign(f, 'input.txt');
rewrite(f);
 
//создание
write('Введите количество товаров: ');
 readln(n);
 writeln('Введите данные о товарах');
 for i:=1 to n do
 begin
 writeln(i,' товар');
 with l do
  begin
   write('Наименование: '); readln(name);
   write('Страна: '); readln(country);
   write('Обьем: '); readln(v);
   write(f,s);
  end;
  end;
 
 
 
reset(f);
volume := 0;
writeln('Введите наименование товара: '); readln(s);
writeln('Данный товар экспортируется с следующие страны: ');
j := 1;
while not eof(f) do begin
readln(f, t); d[j].name := t;
readln(f, t1); d[j].country := t1;
readln(f, vv); d[j].v := vv;
if d[j].name = s then begin write(d[j].country, ' '); volume := volume + d[j].v end;
j := j + 1;
end;
writeln;
writeln('Общий объем экспорта товара = ', volume);
close(f);
end.