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.
Салат оливье. ингредиенты 1 баночка зеленого горошка (400г) 300 г мяса 4 яйца 350 г картофеля 100 г соленых или маринованных огурцов 150 г лука соль майонез алгоритм приготовления: 1.мясо отварить до готовности (варить около 40 минут после закипания) . 2.остудить. 3.лук мелко покрошить. 4.залить его кипятком и оставить на 10 минут, затем воду слить, лук промыть в холодной воде. 5.мясо нарезать кубиками. 6.картофель почистить, нарезать кубиками. 7. яйца мелко покрошить. 8.огурцы мелко нарезать. 9.смешать картофель, мясо, лук, горошек (воду слить) , яйца, огурцы. 10.посолить. 11. заправить майонезом. 12. украсить по вкусу, например зеленым горошком
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.