Для хранения вещественного числа используется ячейка памяти размером 4 байта. Размер поля для хранения абсолютной величины мантиссы числа составляет 20 битов. Каково максимальное число, которое можно сохранить в такой ячейке?

var

A: array [1..100, 1..100] of integer;

i, j, n, y, mini, minj, maxi, maxj, temp: integer;

const

format = 4;

begin

Randomize;

writeln('Введите колличество строк и столбцов через пробел (пример: 3 4)');

read(n, y);

writeln('Исходный массив');

for i := 1 to n do

begin

for j := 1 to y do

begin

A[i, j] := random(40) - 20;

write(A[i, j] : format);

end;

writeln;

end;

mini := 1;

minj := 1;

maxi := 1;

maxj := 1;

for i := 1 to n do

for j := 1 to y do

begin

if A[i, j] < A[mini, minj] then

begin

mini := i;

minj := j;

end ;

if A[i, j] > A[maxi, maxj] then

begin

maxi := i;

maxj := j;

end ;

end;

writeln;

WriteLn('Минимальный = ', A[mini, minj], ' в ', mini, ' строке ', minj, ' колоне.');

WriteLn('Максимальный = ', A[maxi, maxj], ' в ', maxi, ' строке ', maxj, ' колоне.');

temp := A[maxi, maxj];

A[maxi, maxj] := A[mini, minj];

A[mini, minj] := temp;

writeln;

writeln('Преобразованный массив');

for i := 1 to n do

begin

for j := 1 to y do

write(A[i, j] : format);

writeln;

end;

readln;

end.

20

Объяснение:

Первый цикл записывает в ячейку массива значение ее номера, увеличенное на 1. После прохождения цикла мы получим следующие значения:

A[1]=2; A[2]=3; A[3]=4; A[4]=5; A[5]=6; A[6]=7; A[7]=8; A[8]=9; A[9]=10; A[10]=11.

Следующий цикл меняет значения ячейки массива на значение из предыдущей (начиная со второй). Вторая станет равна первой, третья второй, которая равна первой, так мы просто размножим значение из первой ячейки на все остальные.

Несложно будет вычислить сумму десяти ячеек, каждая из которых равна 2: 2*10=20.

ответ: 20