Pascal abc. Дан одномерный массив из n действительных чисел. Найти номер последнего максимального элемента.

Question

Информатика

Хилдебранд

3 февраля, 22:05

Pascal abc. Дан одномерный массив из n действительных чисел. Найти номер последнего максимального элемента.

+3

Ответы (1)

Знаешь ответ?

Сафва · Answer 1

Program asd;

Uses crt;

var a:array [1 ... 100] of integer;

n, k, i, max:integer;

begin

writeln ('Размер массива');

readln (n);

for i:=1 to n do

begin

readln (a[i]);

if a[i]>=max

then begin

max:=a[i];

k:=i;

end;

end;

writeln (k);

end.