Сделайте сообщение на тему, обработка текстовой информации!

Uses crt; var a, b, c, i, n, j : integer;     s : array[1..10000] of integer; begin         clrscr;         writeln('введите размер массива');         read(n);         for i: =1 to n do              begin              s[i]: =random(46)-15;               writeln ('s[', i,']=', s[i]);               end;         a: =s[1]; for i: =1 to n do              if s[i]> a then                  begin                  a: =s[i];                 b: =i;                   end;         writeln ('наибольший элемент s[', b, ']=',a); end. p.s. надеюсь на и лучший ответ.

Uses crt; var a, b, c, i, n, j : integer;       s : array[1..10000] of integer; begin         clrscr;         writeln('введите размер массива');         read(n);         for i: =1 to n do              begin              s[i]: =random(46)-15;               writeln ('s[', i,']=', s[i]);               end;         a: =s[1]; for i: =1 to n do              if s[i]> a then                    begin                    a: =s[i];                   b: =i;                     end;         writeln ('наибольший элемент s[', b, ']=',a); end. p.s. надеюсь на и лучший ответ.