Question

Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем максимальный и минимальный элементы, и их номера. Программа на языке Паскаль.

Answer 1

Var
  arr : array [1..10] of integer; //Объявляем массив
  i, min, max : integer;         //Индекс, позиция минимального элемента, позиция максимального элемента
begin
  min := 1;
  max := 1;

  for i := 1 to 10 do
    arr[i] := Random(20) - 10;   //Заполняем массив
 
  for i := 2 to 10 do            //Находим позицию максимального элемента
    if arr[i] > arr[max] then
      max := i;

  for i := 2 to 10 do            //Находим позицию минимального элемента
    if arr[i] < arr[min] then
      min := i;

  writeln('Максимальный элемент: ', arr[max], '; его позиция: ', max); 
  writeln('Минимальныйй элемент: ', arr[min], '; его позиция: ', min);
end.

Answer 2

var arr: array[1..10] of integer; i, max, min, maxIndex, minIndex: integer; begin // Заполняем массив случайными числами randomize; for i := 1 to 10 do begin arr[i] := random(21) - 10; // генерируем числа от -10 до 10 end;

// Находим максимальный и минимальный элементы, а также их номера max := arr[1]; min := arr[1]; maxIndex := 1; minIndex := 1; for i := 2 to 10 do begin if arr[i] > max then begin max := arr[i]; maxIndex := i; end; if arr[i] < min then begin min := arr[i]; minIndex := i; end; end;

// Выводим массив, максимальный и минимальный элементы, а также их номера writeln('Массив:'); for i := 1 to 10 do begin write(arr[i], ' '); end; writeln; writeln('Максимальный элемент: ', max, ' (индекс ', maxIndex, ')'); writeln('Минимальный элемент: ', min, ' (индекс ', minIndex, ')'); end.