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

Question

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

Comments

Вы уверены, что именно этот язык?

---

Дата создания: 2002 год.Предназначение: замена Turbo Pascal, Free Pascal.Использовался для обучения программированию школьников.С 2007 г. не поддерживается.В Беларуси был издан школьный учебник (Заборовский Г.А . и др. Информатика).

---

Это информация с официально сайта разработчиков.

---

*с официального

---

Может быть, все же, PascalABC.NET ?

---

Вопрос, где она его берет)))))

---

Я как-то смеха ради поинтересовался у разработчиков, где брать. Ответили, что понятия не имеют.

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.