Отыскать наивеличайший элемент числовой последовательности. В паскале с подмогою массива даю

Отыскать наибольший элемент числовой последовательности. В паскале с помощью массива даю 20б.HEELP!

Задать свой вопрос
Аля Борозенная
Щас будет
Даниил
Массив вводится через клаву либо рандом?
1 ответ
Var a:array[1..1000] of integer; 

b,c,i:integer; 

begin

 readln(b); // - количество елементов массива, не больше 1000

 for i:=1 to b do

  read(a[i]);

 c:=0;

 for i:=1 to b do

  if a[i]gt;c

   then

    c:=a[i];

 writeln(c);

 readln

end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт