Решать в Pascal Найти наибольший элемент заданной целочисленной числовой...

Question

Решать в Pascal
Найти наибольший элемент заданной целочисленной числовой последовательности.
Входные данные:Во входном потоке в первой строке задано натуральное число N (N <= 1000) - количество элементов числовой последовательности. Во второй строке через пробел перечислены значения элементов последовательности Ai (-32000 <= Ai <= 32000).<br> Выходные данные:В выходной поток вывести единственное целое число.
Пример входного файла (input.txt):8
100 10 -10 -100 300 32000 20000 -30000
Пример выходного файла (output.txt):32000
Мое решение(ошибку скажите):
var a,b,max,i:longint;
begin
read(a);
for i:=1 to a do begin
read(b);
if b>=max then max:=b;
end;
write(max);
end.

Comments

сколько не ввожу

---

не убирается

---

Нее то написал :)

---

не правильно

---

зачем а два раза считывать?

---

ты два раза а считал

---

ты написал свою ошибку

---

эмм

---

не прошло 5 тест

---

исправляй

Answer 1

Ошибка заключается в том, что переменную max нужно инициализировать прежде, чем будет осуществлен вход в цикл.

var a, b, max, i : longint;
begin
  read(a);
  max := -32001;
  for i:=1 to a do begin
  read(b);
  if b >= max then 
    max:=b;
  end;
  write(max);
end.

Comments

какой-то подвох

---

ничего не вышло

---

вы додумались?

---

и не засчитан тест

---

программа завершила работу без ошибки

---

существует случай при котором это условие не верно

---

нет

---

А вроде всё правильно

---

мне кажется тут что-то связано с положительными и отрицательными числами

---

это неправильно