Решать в 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.
217
479
Ответы на вопрос:
Ошибка заключается в том, что переменную 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.
Популярно: Информатика
-
alinavasileva2221.03.2021 18:36
-
vikavika141715.09.2022 02:16
-
ТвойЩенок25.10.2022 21:11
-
Вопросзнания10.01.2021 23:18
-
anna19901527.03.2020 15:53
-
angel15030130.09.2020 05:50
-
oles201426.01.2023 13:24
-
nastyachurkina31.08.2020 03:31
-
ДжастБодя12.11.2020 13:16
-
danilfkr14.08.2020 07:54