Максимальное значение элемента массива

@markus73 · Регистрация: 21.04.2011

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

Найти максимальное значение элемента массива и его порядковый
номер.

@Ev[G]eN · 07.10.2012, 09:11

Pascal

const
  Size = 20;
var
  Arr: Array[1..Size] of Integer;
  i_max, i: Byte;
begin
  Randomize;
  i_max:=1;
  writeln('Array: ');
  for i:=1 to Size do
  begin
    Arr[i]:=Random(50);
    if (Arr[i_max] < Arr[i]) then
      i_max:=i;
    write(Arr[i], ' ');
  end;
  writeln;
  writeln('Maximal element: ', Arr[i_max], '[', i_max, '];');
end.

@markus73 4 / 4 / 0 Регистрация: 21.04.2011 Сообщений: 52
		1
	Максимальное значение элемента массива 07.10.2012, 09:03. Показов 769. Ответов 1 Метки нет (Все метки) Найти максимальное значение элемента массива и его порядковый номер. 0

	07.10.2012, 09:11

Максимальное значение элемента массива

Решение