Регистрация
papa63428
25.04.2021 19:56
Информатика
Есть ответ 👍

Суреттегі батырмалардың қызыметтерін айтыңдаршы.
керек
​

117
119
Посмотреть ответы 1

Ответы на вопрос:

XeyalVusal124
XeyalVusal124
4,7(39 оценок)

program 1var a: array [1..100] of real; n, i: integer; max: real; maxind: integer; begin readln (n); for i: =1 to n do read (a[i]); max : = a[1]; maxind : = 1; for i: =2 to n do if a[i]> max then begin max : = a[i]; maxind : = i; end;

writeln('максимальный элемент: ',max); writeln('индекс максимального элемента: ',maxind); end.

Популярно: Информатика