Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [TP] номер большего числа

Автор: GreMail 21.12.2006, 20:31

В последовательности a1, a2, an найти номер самого большого числа.

Автор: Rodman 21.12.2006, 21:35

Код


const n = 100;
var a[1..n] of integer;
       i,j,max:inetger;
begin
   randomize;
   max:=-10000;
   for i:=1 to n do
   begin 
      a[i]:=random(99)+1;
       if(a[i]>max)then
      begin
         max:=a[i];
          j:=i; 
      end
   end;
   writeln('Enter number  = ', j);
end.