Условию (Площадь < 2000) удовлетворяют 5 записей (Банда, Восточно-Китайское, Желтое, Охотское и Японское моря). Условию <span>(Наибольшая глубина > 5000) - 3 записи (Банда, Коралловое, Южно-Китайское). Итого, с учетом повторений - 7 записей.</span>
Файл во вложении направляю на вам в группу для для покупок и в в
Const
N = 5;
var
i: integer;
a: array[1..N * 2 + 1] of integer;
begin
writeln('Исходный массив: ');
for i := 1 to 2 * N do
begin
a[i] := Random(99) + 1;
write(a[i] : 5);
end;
for i := 2 * N + 1 downto N + 1 do
a[i] := a[i - 1];
a[N + 1] := 0;
writeln();
writeln('Полученный массив: ');
for i := 1 to 2 * N + 1 do
write(a[i] : 5);
end.
1.Основание
2.Естественная
3.Разновидностей
4.Искусственная