При использовании random() упорядоченные строки получаются редко. Можете массив вводить с клавиатуры. const n=5; m=4; var a:array[1..n,1..m] of integer; i,j,max:integer; b1,b2:boolean; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; max:=-1000; for i:=1 to n do begin b1:=true; b2:=true; for j:=1 to m-1 do begin if a[i,j]<a[i,j+1] then b1:=false; if a[i,j]>a[i,j+1] then b2:=false; end; if b1 or b2 then for j:=1 to m do if a[i,j]>max then max:=a[i,j]; end; if max<>-1000 then writeln('max = ',max) else writeln('В массиве нет упорядоченных строк'); end.
256 цветов можно закодировать 8 битами, т.е. 1 байтом,
сл-но для кодирования одного пикселя необходим 1 байт
мы имеем 10х10 = 100 пикселей, сл-но
для хранения изображения потребуется 100 байт...
Объяснение: