Какое число в массиве встретится раньше: максимальное или минимальное?

@Reflect · Регистрация: 16.02.2017

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

Какое число в массиве встретится раньше: максимальное или минимальное.
Если таких чисел несколько, то должны быть учтены самые первые из них.

@Alexandr212 · 02.04.2017, 18:25

Pascal

var
  a: array [1..100] of integer;
  max, min, i, n, maxi, mini: integer;
 
begin
  min := 51;
  randomize;
  readln(n);
  for i := 1 to n
  do 
  begin
    A[i] := random(50);
    write(A[i], ' ');
    if A[i] > max
    then begin maxi := i;max := A[i]; end;
    if A[i] < min
    then begin mini := i;min := A[i]; end;
  end;
  writeln;
  if mini < maxi
    then writeln('минимальное раньше')
  else writeln('максимальное раньше');
end.

@volvo · 02.04.2017, 19:10

Pascal

begin
  var a := ArrRandom(Random(10, 20), 0, 50).Println(',').ToArray;
  if a.IndexMin > a.IndexMax then writeln('Максимальное число встречается раньше')
  else writeln('Минимальное число встречается раньше')
end.

@Reflect 0 / 0 / 0 Регистрация: 16.02.2017 Сообщений: 14
		1
	Какое число в массиве встретится раньше: максимальное или минимальное? 02.04.2017, 15:31. Показов 2111. Ответов 2 Метки нет (Все метки) Какое число в массиве встретится раньше: максимальное или минимальное. Если таких чисел несколько, то должны быть учтены самые первые из них. 0

	02.04.2017, 19:10

Какое число в массиве встретится раньше: максимальное или минимальное?

Решение