Короче. Мне не влом было запихнуть это всё в эклипс. Результат данной работы будет, как не странно(особенно для тебя, Мышшшь) "5, 10", а не "10, 5". Чего и следовало ожидать. Т. к. Переменные a и b мы объявляли внутри метода main, а в методе swap(int a, int b); существуют собственные int a и int b. Поэтому и работает этот метод с <u>ними</u>. Так что... Учите теорию, господа.
Const
n = 8;
var
i, j, umax, lmax: integer;
a: array[1..n, 1..n] of integer;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(40) - 20;
write(a[i, j]:4)
end;
writeln;
end;
umax := -100;
for i := 1 to n do
for j := i to n do
if umax < a[i, j] then umax := a[i, j];
lmax := -100;
for i := 1 to n do
for j := 1 to i do
if lmax < a[i, j] then lmax := a[i, j];
writeln('Разность максимумов равна ', umax - lmax)
end.
Тестовое решение:
Исходный массив
-5 18 -13 1 -16 5 0 -13
4 -18 -17 -14 2 10 -2 -15
-15 -8 -6 -16 -10 -12 -18 -17
-18 6 11 -5 4 -6 -1 1
10 14 3 -7 2 11 10 -1
6 -2 -20 1 4 9 13 -4
-9 -7 4 -6 -12 3 1 -14
15 -16 -1 -3 13 -15 3 -10
Разность максимумов равна 3
Декларативные знания.
Я знаю, что вода кипит при температуре 100°С.
Я знаю, что машина должна остановиться на красный свет светофора.
Процедурные знания.
Я знаю, как пользоваться таблицей умножения.
Я знаю, как приготовить кашу.
Я знаю, как из бумаги сделать самолётик.
Счет хоккейного матча относиться к числовой форме информации.
1.
₂ ₁ ₀
246₇=7²×2+7×4+7⁰×6=98+28+6=132₁₀
2.
3213÷16=200÷16=12÷16
13 8 12
12813₁₆=C8D₁₆
3.
A2=8,B2=8,C2=4
D2=A1*2
4.
D1=5×$A5÷(3×E2-C$1)
B4=5×$A8÷(3×C5-A$1)