7. Написать программу, которая находит минимальный и максимальный элементы массива и выводит их индексы., Нашла максимальный и минимальный элемент, как вывести их индексы? Опции

[Nagare Boshi]

Program z7;
Var A:array [1..8] of integer;
    i,MAX, MIN:integer;
Begin
for i:=1 to 8 do
Begin
A[i]:=random(15)-5;
End;
WriteLn(A[i]);
MAX:=A[1];
for i:=2 to 8 do
Begin
if MAX<A[i] then
Max:=A[i];
End;
WriteLn(MAX);
for i:=2 to 8 do
Begin
if MIN>A[i] then
MIN:=A[i];
End;
WriteLn(MIN);
End.

Насчет минимального значения не уверена.
Как вообще можно узнать значение индекса элемента?

Сообщение отредактировано: Nagare Boshi - 8.01.2010 16:53

[Ozzя]

Program z7;
const
n=8;
Var A:array [1..n] of integer;
   i,MAX, MIN:integer;
   iMax,iMin:integer;
Begin
  for i:=1 to n do
    Begin
     A[i]:=random(15)-5;
     WriteLn(A[i]);
   End;
  MAX:=A[1];
  MIN:=A[1];
  for i:=2 to n do 
   begin
     if MAX<A[i] then
      Begin
        Max:=A[i];
        iMax:=i;
     End;
    if MIN>A[i] then
      Begin
        MIN:=A[i];
        iMin:=i;
     End;
  end;
WriteLn(MAX, IMax);
WriteLn(MIN, iMIn);
End.

Сообщение отредактировано: Ozzя - 8.01.2010 16:59

[Lapp]

Ozzя, твой код не сработает, если мин/макс в первом элементе - ты забыл инициализировать imin и imax. Это можно исправить, но лучше совсем не использовать MIN и MAX, а только их индексы. Вот так:

Program z7;
const
  n=8;
Var
  A:array [1..n] of integer;
  i,iMax,iMin:integer;

Begin
  for i:=1 to n do Begin
     A[i]:=random(15)-5;
     WriteLn(A[i]);
  End;
  iMax:=1;
  iMin:=1;
  for i:=2 to n do begin
    if A[iMax]<A[i] then iMax:=i;
    if A[iMin]>A[i] then iMin:=i;
  end;
  WriteLn('Max: ',A[iMax],' at ',iMax);
  WriteLn('Min: ',A[iMin],' at ',iMIn);
End.

[Nagare Boshi]

А что значит at?

[Lapp]

А что значит at?

В данном случае - "в позиции". Вообще - предлог со значениями "у", "в" (перевод)

Учи английский, он весьма полезен в программировании. Паскаль, кстати, тут ни при чем.. ))