Помощь - Поиск - Пользователи - Календарь
Полная версия: 7. Написать программу, которая находит минимальный и максимальный элементы массива и выводит их индексы.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.

Насчет минимального значения не уверена.
Как вообще можно узнать значение индекса элемента?
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.
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? unsure.gif
Lapp
Цитата(Nagare Boshi @ 9.01.2010 2:19) *
А что значит at? unsure.gif
В данном случае - "в позиции". Вообще - предлог со значениями "у", "в" (перевод)

Учи английский, он весьма полезен в программировании. Паскаль, кстати, тут ни при чем.. ))
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.