Прежде всего очистим Ваш код от первоапрельских шуточек
Код:
program prim11;
const n=5;
type
export=record
strana:string;
tovar shtuk:array[13] of string;
end;
var
a:array[1n] of export;
ij:integer;
begin
writeln('vvod nazv 5 stran');
for i:=1 to n do
with a[i] do
begin
readln(strana);
for j:=1 to 5 do
begin
readln(tovar[j]);
readln(shtuk[j]);
end;
end;
for i:=1 to n do
begin
for j:=1 to 5 do
if a[i]strana='Kanada Italia USA Germany France' then writeln('tovar= 'a[i]tovar[j]);
writeln('shtuk= 'a[i]shtuk[j]);
end;
end.
Взглянем и ужаснёмся обилию ошибок буквально в каждой строке
Написано бездумно неряшливо типа "нате и отстаньте"
Добро
Я выложу код который написан правильно но не оттестирован
Этим займитесь сами
Поскольку я уже отмечал что отладка подобных задач есть дело долгое нудное и противное так как требует введения кучи данных а у меня на вечер другие планы
Код:
program prim11;
const
n=5;
type
export=record
strana:string;
tovar:array[1..3] of string;
shtuk:array[1..3] of byte;
end;
var
a:array[1..n] of export;
i,j:integer;
begin
writeln('vvod nazv stran');
for i:=1 to n do
with a[i] do
begin
write('Strana: ');
readln(strana);
for j:=1 to 3 do
begin
write('Tovar: ');
readln(tovar[j]);
write('Shtuk: ');
readln(shtuk[j]);
end;
writeln;
end;
for i:=1 to n do
begin
if (a[i].strana='Kanada') or (a[i].strana='Italy')
or (a[i].strana='USA') or (a[i].strana='Germany')
or (a[i].strana='France') then
begin
writeln(a[i].strana);
for j:=1 to 5 do
writeln(a[i].tovar[j],' ',a[i].shtuk[j],' shtuk');
writeln;
end;
end;
Readln
end.