Ответы на вопрос:
Const nm = 50; {максимальная длина массива} var i, n, max, p: integer; a: array[1..nm] of integer; begin write('введите количество элементов в массиве: '); readln(n); max : = -32768; write('введите элементы массива через пробел '); for i : = 1 to n do begin read(a[i]); if max < = a[i] then begin max : = a[i]; p : = i end end; writeln('последний максимальный элемент ', max, ' имеет номер ', p) end. тестовое решение: введите количество элементов в массиве: 10 введите элементы массива через пробел 4 -5 6 -9 1 0 6 3 -1 5 последний максимальный элемент 6 имеет номер 7
Популярно: Информатика
-
Полина111116484485817.02.2020 01:06
-
Ostap201029.04.2020 14:23
-
kira1045112.12.2021 07:14
-
Котоман22822.11.2020 13:53
-
dogsno03.04.2021 11:24
-
dan4ikqwerty30.03.2023 22:59
-
Мыркпвы08.06.2023 22:33
-
amelkonatasha31.07.2020 09:38
-
alinavolk93ozs1oc09.12.2022 06:44
-
onlysvp09.02.2022 14:40