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

Question

Информатика

Аразмурат

31 июля, 03:08

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

+5

Ответы (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.