При использовании палитры из 16 цветов для хранения одного пикселя требуется log(2)16 = 4 бита. Объем памяти для хранения изображения = 24*24*4 бит = 2304 бит
// PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllText('A.txt').ToIntegers;
WriteAllText('B.txt',(a[0]*a[1]).ToString)
end.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(10,10,99); a.Println;
a.Reverse.Println
end.
<u><em>Тестовое решение:</em></u>
39 29 38 59 16 60 41 73 76 52
52 76 73 41 60 16 59 38 29 39
Program ANT;
const n=6; m=6;
var i,j:integer;
var a:array [1..n,1..m] of real;
begin
writeln('Введите матрицу');
for i:=1 to n do
for j:=1 to m do begin
writeln('a[',i,',',j,']');
readln(a[i,j]);
end;
writeln('Исходная матрица');
for i:=1 to n do
for j:=1 to m do begin
writeln(a[i,j]);
writeln;
end;
u:=0;
for i:=1 to n do begin
for j:=1 to m do
if i+j=7 then u:=u+ln(a[i,j]);
end;
writeln('Среднее геометрическое',u);
max:=[1,1];
for i:=1 to n do begin
for j:=1 to m do
if (a[i,j]>max) then [i,j]:=max;
end;
writeln('Максимальное значение',max);
u:=max;
writeln('Полученная матрица');
for i:=1 to n do
for j:=1 to m do begin
writeln(a[i,j]);
writeln;
end;
end.