{ђ®¬**оЄ 251}
program romanuk9_2;
uses crt;
type Mas = array[1..100] of integer;
var  A:mas;
     b,i,c,s,n,m:integer;
begin
  clrscr;
  textbackground(white);
  clrscr;
  textcolor(black);
   s:=1;
  writeln('введите кол-во символов массива*');
  readln(b);
  writeln;writeln;
  randomize;
  for i:=1 to b do begin

    A[i]:=random(200)-100;
    write(A[i]:5);
    end;
    writeln;
     for i:=1 to b do begin



     write(i:5)
     end;
     writeln('   *номера элементов');
     writeln;
     writeln;
     writeln('введите номер 1-го (+)элемента*');

     readln(n);
     writeln('введите номер последнего (+)элемента*');

     readln(m);
     for i:=1 to b do begin
     if i=n then textcolor(green)
     else textcolor(black);
     if i=m then textcolor(blue)
     else textcolor(black);
     write(A[i]:5);
     end;
     writeln;
      readln;
end.

uses crt;
type
 Mas = array[1..100] of integer;
var
 A:mas;
 b,i,s:integer;
begin
 textbackground(white);
 clrscr;
 textcolor(black);
 write('Введите кол-во символов массива: ');
 readln(b);
 writeln;
 writeln;
 randomize;
 for i:=1 to b do
  begin
   A[i]:=random(200)-100;
   write(A[i]:5);
  end;
 writeln;
 writeln;
 s:=1;
 for i:=2 to b do
  if A[i]>A[s] then s:=i;
 for i:=1 to b do
  begin
   if (i>s) and (A[i]>0) then
    textcolor(red)
   else
    textcolor(black);
   write(A[i]:5);
  end;
 readln;
 NormVideo;
end.

uses crt;
type
 Mas = array[1..100] of integer;
var
 A:mas;
 b,i,i1,i2:integer;
begin
 textbackground(white);
 clrscr;
 textcolor(black);
 write('Введите кол-во символов массива: ');
 readln(b);
 writeln;
 writeln;
 randomize;
 for i:=1 to b do
  begin
   A[i]:=random(200)-100;
   write(A[i]:5);
  end;
 writeln;
 writeln;
 i1:=0;
 Repeat
  Inc(i1);
 Until A[i1]>0;
 i2:=b+1;
 Repeat
  Dec(i2);
 Until A[i2]>0;
 for i:=1 to b do
  begin
   if i=i1 then
    textcolor(green)
   else
   if i=i2 then
    textcolor(blue)
   else
    textcolor(black);
   write(A[i]:5);
  end;
 readln;
 NormVideo;
end.