Лб инф передел / 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.