Написать программу, которая в одновременном массиве заданным вводом данных с клавиатуры находит индекс максимального элемента массива. на языке pascal.

115

141

Посмотреть ответы 2

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

beauty227

Информатика

4,6(100 оценок)

Var n,i,max: integer; a: array [1..1000] of integer; //объявляем массив begin writeln('введите количество чисел'); readln(n); for i: =1 to n do begin readln(a[i]); if a[i]> max then max: =i; end; writeln('индекс максимального элемента массива =', max); end.