Дистанционная подготовка: Что я неправельно делаю?
Что я неправельно делаю?
от Максим Быков - Вторник 25 Август 2015, 13:58
72. Максимум в массиве
  var n,i,max:longint;
mas:array [1..36] of longint;
begin
readln(n);
max:=-1000000;
for i:=1 to n do
begin
read(mas[i]);
if mas[i]>=max then
max:=mas[i];
end;
writeln(max);
end.



(Быков М.)
Re: Что я неправельно делаю?
от Антон Кваша - Вторник 25 Август 2015, 15:24
  Скорее всего неверно выбрано начальное значение max.
Например на тесте 2 (-1000001, -1000002) ваша программа выдаст -1000000, хотя правильный ответ -1000001. Поскольку в задаче не указаны ограничения на входные данные элементов, лучше всего взять начальным значением max первый элемент данного массива. Основная часть программы правильная.

P.S Я только что сдал ваш код, и получил WA на трех тестах. Изменив начальное значение max на первый элемент массива, на всех тестах ОК.