Содержимое массива будет таким (по шагам):
0) 6 4 5 -1 2 0 4 -4 -2 1
1) 6 3 5 -1 2 0 4 -4 -2 1
2) 6 3 1 -1 2 0 4 -4 -2 1
3) 6 3 1 0 2 0 4 -4 -2 1
4) 6 3 1 0 2 0 4 -4 -2 1
5) 6 3 1 0 2 2 4 -4 -2 1
6) 6 3 1 0 2 2 -2 -4 -2 1
7) 6 3 1 0 2 2 -2 -4 -2 1
8) 6 3 1 0 2 2 -2 -4 3 1
Как можно видеть, после всех преобразований массива (на последнем шаге) он содержит шесть чётных чисел (6, 0, 2, 2, -2, -4).
Ответ: 6
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
В цикле происходит переприсваивание элементу массива B[i] значения элемента массива B[j], где i меняется от 1 до 20, а j вычисляется по формуле ЦелаяЧасть ( (i+5)/3 ) + 1.
Эта формула порождает значения 3, 3, 3, 4, 4, 4, ... 8, 8, 8, 9, 9
Будут получены шесть троек значений 3, 4, 5, ... 8 и одна пара значений 9.
При этом i пробежит 10 четных значений 2, 4, 6, ...20 и для i=4 будет получено j=4, т.е. этот элемент не изменит значения.
Следовательно, свои значения изменят <u>9</u> четных элементов.
Существуют три основных типа величин<span>, с которыми работает компьютер: </span>числовой, символьный<span> и </span>логический.