Question

Решать в Pascal Найти наибольший элемент заданной целочисленной числовой последовательности. Входные данные:Во входном потоке в первой строке задано натуральное число N (N <= 1000) - количество элементов числовой последовательности. Во второй строке через пробел перечислены значения элементов последовательности Ai (-32000 <= Ai <= 32000). Выходные данные:В выходной поток вывести единственное целое число. Пример входного файла (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.

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.

Answer 2

Your solution is almost correct, but there is a small mistake in your code. When initializing the variable max, you should set it to the minimum possible value (-32,000) instead of 0. This ensures that any valid input value will be greater than the initial value of max.

Here's the corrected Pascal code:

pascalCopy code
var
  a, b, max, i: longint;

begin
  read(a);
  max := -32000; // Initialize max to the minimum possible value

  for i := 1 to a do
  begin
    read(b);
    if b >= max then
      max := b;
  end;

  write(max);
end.

This should now correctly find the largest element in the given integer sequence and output it to the output file as expected.