8 бит = 1 байт. Сколько символов в статье - столько и байт.
А символов всего 64 страницы по 40 строк и по 64 символа на каждой, т.е.
64×40×64 = 2⁶×40×2⁶ = 40×2¹² = 40×4×2¹⁰ = 160×2¹⁰.
Тогда объем составит <em>160 Кбайт</em>, поскольку 2¹⁰ байт = 1 Кбайт
const
ns=20;
var a:array[1..ns,1..ns] of integer;
m,n,i,j:byte;
min,sum:integer;
begin
randomize;
readln(m,n);
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:3);
end;
writeln;
end;
writeln('Минимальные элементы столбцов:');
sum:=0;
for j:=1 to n do
begin
min:=a[1,j];
for i:=1 to m do
if a[i,j]<min then
min:=a[i,j];
sum:=sum+min;
writeln(j,' - ',min:2);
end;
writeln('Сумма минимальных элементов: ',sum);
end.
См фото
=========================
При чтении массива вложенный цикл, а переменная одна и та же j ,
for j:=1 to 4 do
begin
for j:=1 to 4 do
замените в первом цикле
for i:=1 to 4 do
Переставьте местами строчки вниз и пока слева стена местами