program z8;
uses crt;
var
i,k,n:byte;
s:integer;
sa:real;
begin
clrscr; i:=1;
writeln('Для завершения последовательности нажмите ноль');
while i>0 do begin
read(i);
Var m,n,s,x:integer;beginreadln(m,n);x:=m;while (m>0)and(n<>0)and(x>=n) dom:=m-n;s:=0;while m<1 dobegins:=s+1;m:=m+1end;
m:=x;x:=n;while (n>0)and(m<>0)and(x>=m) dobeginn:=n-m; s:=0end;while n<1 dobeginn:=n+1;s:=s+1end;writeln(s)end.
N i K
8 3 200*3=600
16 4 110*4=440
64 6 120*6=720
128 7 100*7=700
256 8 80*8=640
nst N=15;
var
a: array [1..N] of integer;
i,i1:integer;
flag:boolean;
begin
flag:=false;
for i:=1 to N do
begin
a[i]:=random(41)-20;
if (flag=false) and (a[i]<0) then
begin
i1:=i;
flag:=true;
end;
write(a[i]:4);
end;
writeln;
if flag then
writeln('Первое отрицательное на ',i1,' позиции')
else writeln('Отрицательных нет');
end.