Автор: Студентик13 10.01.2006 19:37
Пожалуйста помогите решить эту задачу. Заранее Благодарен.
Дана последовательность чисел. Выдать на печать номер позиции. В которой находится наибольший член последовательности
Автор: klem4 10.01.2006 20:10
Последовательность где-то хранится ? В массиве ? В файле ?
Автор: Shura 10.01.2006 20:57
И причем тут множества? Если последовательность в массиве, то вот:
Код
Uses
Crt;
Const
n = 10;
Var
a: Array [1..n] of ShortInt;
max: ShortInt;
i, nmax: Byte;
{****************************************************************************}
Begin
Randomize;
ClrScr;
max:=-127;
nmax:=1;
for i:=1 to n
do begin
a[i]:=Random(100)-50;
if a[i] > max
then begin
max:=a[i];
nmax:=i
end;
Write(a[i]:4)
end;
WriteLn;
Write('Maksimal''niy element raven ', max, ' i on zanimaet ', nmax, '-e');
WriteLn(' mesto v posledovatel''nosti.');
ReadLn
End.