Ответы на вопрос:
Var i,n,max,k: integer; b: array[1..n] of integer; begin; writeln('сколько элементов в последовательности? '); readln(n); writeln('введите элементы массива'); for i: =1 to n do begin readln(b[i]); if b[i]> max then begin max: =b[i]; k: =i end; writeln('наибольший элемент последовательности = ',max,'. а его порядковый номер ', k); end.
Популярно: Информатика
-
morti313.04.2022 03:17
-
Оля02529.03.2020 20:18
-
поплрадДРм05.12.2021 15:47
-
alena030320.10.2022 09:59
-
Luiza21102.08.2021 10:56
-
Fvbygbb16.01.2021 07:21
-
alexeypimkin01.08.2020 11:27
-
Rosa0208.09.2022 23:04
-
KosherDan16.07.2020 14:59
-
Kirill9162310.03.2023 11:59