Условию (Площадь < 2000) удовлетворяют 5 записей (Банда, Восточно-Китайское, Желтое, Охотское и Японское моря). Условию <span>(Наибольшая глубина > 5000) - 3 записи (Банда, Коралловое, Южно-Китайское). Итого, с учетом повторений - 7 записей.</span>
Var n, i, min, max, min_i, max_i, tmp: integer; a:array[1..100] of integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
min := a[1];
max := a[1];
min_i := 1; {номер минимального}
max_i := 1;
for i := 2 to n do
begin
if min > a[i] then
begin
min := a[i];
min_i := i;
end;
if max < a[i] then
begin
max := a[i];
max_i := i;
end;
end;
tmp := a[max_i];
a[max_i] := a[min_i];
a[min_i] := tmp;
for i := 1 to n do
write(a[i], ' ');
end.
Ёёё в инете есть это же я видела
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b):=ReadInteger2('Введите два числа через пробел:');
if (a>=0) and (b>=0) then (a,b):=(a*10,b*10)
else
if (a>=0) xor (b>=0) then (a,b):=(a*100,b*100)
else
if (a<0) and (b<0) and not a.Between(-7,-3) and
not b.Between(-7,-3-1) then (a,b):=(a*1000,b*1000)
else (a,b):=(a*10000,b*10000);
Println(a,b)
end.
Программа просит числитель и знаменатель обеих дробей через пробел и выдает произведение