массив

[Castro]

Найти номер максимального элементе , что то у меня не получается , а сам максимальный элемент я нашол вот так вот

PHP код:

Program nomer ;
uses crt;
var a:array [1..20] of integer;
n,i,max:integer;
begin
clrscr;
write('vvedite kol. el.');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
max:=a[i];
for i:=1 to n do
if abs(a[i])>abs(max) then max:=a[i];
write (max);
end. 


не могу найти номер максимального элемента хоть убей ...

[Sazary]

Да просто запоминайте не само число, а его индекс.

Program nomer ; 
uses crt; 
var a:array [1..20] of integer; 
n,i,max:integer; 
begin 
clrscr; 
write('vvedite kol. el.'); 
readln(n); 
for i:=1 to n do 
begin 
write('a[',i,']='); 
readln(a[i]); 
end; 
max:=i;
for i:=1 to n do 
if abs(a[i])>abs(a[max]) then max:=i;
writeln(a[max]);
readln;
end.

[Castro]

спасибо получилось самому сделать

[Castro]

Сообщение от Sazary

Да просто запоминайте не само число, а его индекс.

Program nomer ; 
uses crt; 
var a:array [1..20] of integer; 
n,i,max:integer; 
begin 
clrscr; 
write('vvedite kol. el.'); 
readln(n); 
for i:=1 to n do 
begin 
write('a[',i,']='); 
readln(a[i]); 
end; 
max:=i;
for i:=1 to n do 
if abs(a[i])>abs(a[max]) then max:=i;
writeln(a[max]);
readln;
end.

спасибо большое ) за помощь ) просто прежде временно написал на форуме ) и у самого получилось сделать )

[Castro]

эх... всё равно не то ... мне надо найти номер максимального элемента , а оно его не выводит, точнее не находит

[Sazary]

эх... всё равно не то ... мне надо найти номер максимального элемента , а оно его не выводит, точнее не находит

Что конкретно вас не устраивает в приведенном выше варианте? Все работает, все ищет, .все выводит.

[Castro]

Сообщение от Sazary

Что конкретно вас не устраивает в приведенном выше варианте? Все работает, все ищет, .все выводит.

ну оно там просто выводит максимальный элемент... , а не номер максимального элемента

[Sazary]

ну оно там просто выводит максимальный элемент... , а не номер максимального элемента

Это проблема? Посмотрите на код и подумайте, что нужно заменить.
Даже намекну: изменится 3-я строчка снизу.

[Castro]

Сообщение от Sazary

Это проблема? Посмотрите на код и подумайте, что нужно заменить.
Даже намекну: изменится 3-я строчка снизу.

всё понял , спасибо огромное ) просто замучился уже ....

[Doholyan]

странно почему все объявляют переменную массива спомощью VAR????
Так же не правильно!!!