открыть,изменит,создать,переименовать,копировать,создать ярлык,закрыть,свернуть,отправить,вырезать,удалить,свойства
4 Кбайт = 4*1024 байт = 4*1024*8 бит
Объем одного пикселя = 4*1024*8 / (175*175) ≈ 1,07 бит ≈ 1 бит
Число цветов = 2^1 = 2
Const Sz = 100; // Размер массива
var
b,a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
k, i: integer;
begin
k:=0;
N := 20;
writeln ('chisla');
for i:=1 to N do begin
a[i] := Random(60)-30;
write (a[i],' ');
end;
writeln;
writeln ('---------------------------------------------');
for i:=1 to n do begin
if ((a[i]<=5) and (a[i]>0)) then
begin
k:=k+1;
write (i,' ');
end;
end;
if (k=0) then
write('no');
end.