Наибольший элемент массива

@kvs868 · Регистрация: 07.04.2013

Author24 — интернет-сервис помощи студентам

Дан массив элементов длины N.
1. Наибольший элемент массива.
2. Номер наибольшего элемента массива.
3. Отсортировать массив по убыванию.

Помогите кто чем может пожалуйста, заранее благодарен

Kodzaev · 07.04.2013, 23:31

Pascal

Var
  x: Array [1..100] of Integer;
  i,n,j,max,imax,tmp: Integer;
BEGIN
Write('Введите кол-во элементов: ');
Readln(n);
max:=-Maxint;
Writeln('Исходный массив: ');
For i:=1 to n do
begin
  x[i]:=Random(100);
  Write(x[i],' ');
  If x[i]>max Then
  begin
    max:=x[i];
    imax:=i;
  end;
end;
Writeln;
Writeln('MAX = ',max,', его индекс = ',imax);
For i:=1 to n-1 do
begin
  For j:=i+1 to n do
  begin
    If x[i]<x[j] Then
    begin
      tmp:=x[i];
      x[i]:=x[j];
      x[j]:=tmp
    end
  end
end;
Writeln('Отсортированный массив: ');
For i:=1 to n do
Write(x[i],' ');
Readln
END.

@kvs868 0 / 0 / 0 Регистрация: 07.04.2013 Сообщений: 7
		1
	Наибольший элемент массива 07.04.2013, 17:14. Показов 1052. Ответов 1 Метки нет (Все метки) Дан массив элементов длины N. 1. Наибольший элемент массива. 2. Номер наибольшего элемента массива. 3. Отсортировать массив по убыванию. Помогите кто чем может пожалуйста, заранее благодарен 0

	07.04.2013, 23:31

Наибольший элемент массива

Решение