Лб инф передел / Pascal / Лабораторные по информатике / Возможные варианты / BOGDI_4

program lab_4;
{varianty 10; Orudzhov Bogdan I-174}
var a:array[1..100] of integer;
    max,n:integer;
    i:integer;
    q:integer;
    f,fz:text;
    label start;
    label th;
    label endz;
begin
assign(f,'F1.txt');
rewrite(f);
     max:=-(MAXINT+1);
     start:
     writeln('vvedite kolichestvo elementov massiva(>100) ');
     readln(n);
     if (n>100) OR (n<0) then goto start;
     q:=0;
       for i:=1 to n do
              begin
              writeln('vvedite ',i,'element massiva');
              readln( a[i] );

              if (a[i]<0) AND (q=0) then  q:=i;
              {
              1  else if q=1 then goto th else goto endz;
              th: if (max < a[i]) AND (q=1) then
                  begin
                  max:=a[i];
                  endz:
                  end;}

              end;
writeln(f,'ishodiy massiv');
for i:=1 to n do
begin
write(f,a[i]:5,'  ');
if i mod 5=0 then
writeln(f);
end;
writeln(f);
if q=0 then
writeln(f, 'otricatelnyx net') else
begin
max:=a[q];
for i:=q to n do
  if a[i] > max then
  max:=a[i];
writeln(f, ' maximalniy element= ', max:5  );
end;
close(f);
writeln('Programma zavershena. Rezultat v faile F1.txt');
end.