Мне не нравится условие "наименьшую возможную длину", ибо по тому, что получилось у меня, наименьшей длиной может быть хоть отрезок длиной в 0. Возможно, в задании опечатка, ну или я накосячила.
S= 200*200
S= 400 2 (два это в квадрате)
1 байт=256 точкам (правильно говорить пикселям)
400/256= 1 байт и 48 бит
Program primer;
Uses crt;
var i,n,ind: integer;
a:array[1..100] of integer;
begin clrscr;
randomize;
write('Pazmer massiva = ');
readln(n);
for i:=1 to n do
a[i]:= random(100)-70;
for i:=1 to n do
write(a[i]:5);
writeln;
writeln;
for i:=1 to n do
if a[i]<=0 then ind:=ind+1
else
begin
ind:=i;
writeln(ind); break;
end;
end.