Положение наибольшего элемента в массиве. Pascal и C++. Прошу помогите решить

Положение наибольшего элемента в массиве. Pascal и C++. Прошу помогите решить данную задачку в двух программках. (Желая бы в одной).

Задать свой вопрос
1 ответ

var a:array of integer;

N,i,max,k:integer;

BEGIN

readln(N);

SetLength(a,N);

max:=-1001;

for i:=0 to N-1 do begin

read(a[i]);

if (a[i]gt;max) then begin

max:=a[i];

k:=i;

end;

end;

writeln(k);

for i:=0 to N-1 do

write(a[i],' ');

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт