Ответы на вопрос:
Ошибка: Функция объявляется позже чем вызывается
Как исправить: вызывать функцию после ее объявления
//pascal abc.net v3.1 сборка 1172 //1 var i,x,max,n,maxi: integer; begin max: =-32768; readln(x); i: =0; while i< > x do begin i: =i+1; readln(n); if n> =max then begin max: =n; maxi: =i; end; end; writeln(maxi); end. пример ввода: 3 1 2 2 пример вывода: 3 //2 var i,x,min,n,mini: integer; begin min: =32767; readln(x); i: =0; while i< > x do begin i: =i+1; readln(n); if n< min then begin min: =n; mini: =i; end; end; writeln(mini); end. пример ввода: 3 1 1 2 пример вывода: 1
Популярно: Информатика
-
merinovamilania01.11.2022 05:43
-
School13kursk03.12.2021 18:26
-
naked15918.03.2023 23:43
-
Aiauka1127.12.2021 01:39
-
miao202.04.2023 20:15
-
Cxvdjx830u5b02.06.2020 09:34
-
кирил208812.12.2021 01:26
-
nadezhdacvoboda13.12.2022 03:43
-
SaviRay20.08.2022 08:47
-
ЕНОТ5511531.07.2022 17:23