1. 

   netpystote New Member

   написать программу поиска значения максимального элемента массива

    

   netpystote, 16 янв 2010

   #1
2. 

   semik New Member

   Const n=10;
   Var a:array[1..n] of integer; i,max:integer;
   Begin
    randomize;
    for i:=1 to n do a:=random(201)-100;
    for i:=1 to n do write(a,' ');
    writeln;
    max:=a[1];
    for i:=2 to n do
      if a>max then max:=a;
    writeln('max=',max);
   End.
   

    

   semik, 16 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня