надеюсь вы поймете мой почерк
Для решения задачи нужно использовать логические функции ЕСЛИ и И (см. прилагаемый файл).
256 = 2⁸, поэтому пикселей 2⁸×2⁸ = 2¹⁶ пикселей
3 Кбайта = 3×2¹⁰ байт = 3×2¹⁰×2³ бит = 3×2¹³ бит.
На 1 пиксель приходится 3×2¹³/2¹⁶ бит = 3/2³ =3/8 бита.
Это и есть размер палитры. Но под пиксель нельзя отвести меньше бита, поэтому задача НЕКОРРЕКТНА.
Program krab52;
uses crt;
const
n=10;
var
a:array [1..n] of integer;
i,max,min:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
{заполняем массив}
for i:=1 to n do
begin
a[i]:=random(101);
write (a[i]:4);
end;
writeln();
{ищем макс и мин}
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
{выводим результат}
writeln();
writeln(' Максимальный элемент ',max);
writeln(' Минимальный элемент ',min);
writeln(' Размах между максимальным и минимальным элементами ',max-min);
end.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
var a:=ArrRandom(11,5,45).Println;
var x:= a.where(t -> t.IsEven).sum;
Writeln('Сумма четных элементов: ', x);
end.
2)
begin
var a:= ArrGen(5, t -> ReadReal).Println;
a:= a.Select(t ->t/3).ToArray.Println;
end.