Помогите, пожалуйста, срочно написать код на паскале! Все голову сломала:(
Даны массивы Н1..Н5 шифры предприятий 1ой группы
НН1..НН8 шифры предприятий 2ой группы
N1..N5 наименование продукций предприятий 2ой группы
NN1..NN8наименование продукций предприятий 2о1 группы
Вывести списки предприятий выпускающих одинаковую продукцию

1

Ответы и объяснения

2014-02-19T20:22:51+04:00
Var H1:array[1..5] of integer;
    H2:array[1..8] of integer;
    N1:array[1..5] of integer;
    N2:array[1..8] of integer;
    i, j:integer;

begin
randomize;
for i:=1 to 5 do {заполняем массивы}
 begin
 H1[i]:=random(10);
 N1[i]:=random(10);
 end;
for i:=1 to 8 do
 begin
 H2[i]:=random(10);
 N2[i]:=random(10);
 end;
for i:=1 to 5 do {сравниваем продукцию}
 for j:=1 to 8 do
 if N1[i]=N2[j] then writeln(i, ' и ', j, ' Выпускают одинаковую продукц.');
write('H1 ');{выводим массивы}
for i:=1 to 5 do
write(H1[i], ' ');
writeln;
write('N1 ');
for i:=1 to 5 do
write(n1[i], ' ');
writeln;
write('H2 ');
for i:=1 to 8 do
write(H2[i], ' ');
writeln;
write('N2 ');
for i:=1 to 8 do
write(N2[i], ' ');
writeln;
end.