Массивы Опции

[Димасик]

program lab01;
uses crt;
var i,sh:integer;
    m:array[1..50] of integer;
    max:integer;
const a=-200;
      b=200;
begin
ClrScr;
writeln('Задать масив случ. образом от -200 до 200');
writeln('Для генерации нажмите <ENTER>');
readln;
randomize;

for i:=1 to 50 do begin m[i]:=random(b-a)+a;
			write(m[i]:3,'....');
			sh:=sh+1;

			if sh=10 then begin
				readln;
				writeln;
				sh:=0;
				end;



			end;
max:=m[1];

for i:=1 to 50 do
if m[i]<max then max:=m[i];

writeln('Максимальный отриц. элемент по модулю m[',i,'] =  ',max);
readln;
end.

ребят вот такой вопросик в конце программы стит цикл, который показывает максимальный элемент, а как сделать чтобы показывало еще и индекс этого элемента? не использую еще цикл, т.е с помощью одного?

[klem4]

Во первых почему в этот раздел ? В задачи надо было (переношу). Во вторых, в следующий раз ползуйся тегами, в третьих

4. Название вашей темы должно быть информативно!

При создании темы учтите, что название должно кратко отражать ее суть. Плодить топики с названиями "ПАМАГИТЕ!!!" или "ПОЧЕМУ?!?!" крайне не рекомендуется, и жестко карается модераторами.

Ну а

Максимальный отриц. элемент по модулю

ищется так:

maxI := 0;

for i := 1 to 50 do
 if (m[i] < 0) and ((maxI = 0) or ((abs(m[i]) > abs(m[maxI]))) then
  maxI := i;

writeln('i = ', maxI, ' m[', maxI, '] = ', m[maxI]);

[Гость]

Cпасиб большое, все понял, буду знать!
п.с извините что не так