Для начала найдем кол-во пикселей в изображении:
128*128=16384
На один пиксель может приходиться 2 цвета - черный и белый. Следовательно:
16384*2=32768
Отсюда находим i в битах:
2^i=32768
Отсюда i=15
1 Кб=1024 Байт=8*1024 Бит, отсюда:
15/8=1,875 Байт
1,875/1024= ~0,002 Кб
Можешь изменить 2 переменные - ширину и высоту изображения и решить ее, руководствуясь этими же рассуждениями))
Алгоритм, думаю... совокупность действий, которые могут выполнчятся над объектом или кот. выполняет сам объект.
Var m:array[1..9,1..9] of integer;
s,j,i:integer;
begin
randomize;
s:=0;
For i:=1 to 9 do
For j:=1 to 9 do
m[i,j]:=random(100)+1;
For i:=1 to 9 do
For j:=1 to 9 do
s:=s+m[i,j];
writeln('Сумма элементов двумерного массива размерностью 9*9 = ',s);
end.
1 часть - базовая (от 0 до 127)
2 часть - расширенная (со 128 до 255), является национальной, там располагаются национальные алфавиты, отличные от латинского
Var
a: array[1..50] of integer;
max, maxi: integer;
begin
Randomize;
for var i := 1 to 50 do a[i] := Random(1, 1000);
writeln(a);
max := a[1];
maxi := 1;
for var i := 1 to 50 do
if a[i] > max then begin
max := a[i];
maxi := i;
end;
a[maxi] := 0;
writeln('Максимальный был на ', maxi, ' месте и равнялся ', max);
writeln(a);
<span>end.</span>