Question

Надо написать программу по нахождению в массиве минимальное и максимальное значение без команды random. паскаль. Спасибо

Answer 1

Var a:array[0..4] of integer;
i,min,max:integer;
begin
for i:=0 to 4 do
read(a[i]);
max:=a[0];
min:=a[0];
for i:=1 to 4 do begin
if max<a[i] then
max:=a[i];
if min>a[i] then
min:=a[i];
end;
writeln('Максимальное число:',max);
write('Минимальное число:',min);
end

Answer 2

Конечно, вот пример программы на языке Паскаль для нахождения минимального и максимального значения в массиве без использования функции random:

pascalCopy code
program MinMaxArray;

const
  SIZE = 10;

var
  arr: array[1..SIZE] of Integer;
  i, minVal, maxVal: Integer;

begin
  // Ввод значений массива
  writeln('Введите ', SIZE, ' целых чисел:');
  for i := 1 to SIZE do
    readln(arr[i]);

  // Нахождение минимального и максимального значения
  minVal := arr[1];
  maxVal := arr[1];
  for i := 2 to SIZE do
  begin
    if arr[i] < minVal then
      minVal := arr[i];
    if arr[i] > maxVal then
      maxVal := arr[i];
  end;

  // Вывод результатов
  writeln('Минимальное значение в массиве: ', minVal);
  writeln('Максимальное значение в массиве: ', maxVal);

  readln;
end.

В этом примере программа запрашивает у пользователя 10 целых чисел и затем находит минимальное и максимальное значение введенного массива. Она использует цикл для сравнения каждого элемента с текущим минимальным и максимальным значением, обновляя их при необходимости.

Примечание: Этот код предназначен для языка Паскаль (Pascal). Проверьте, соответствует ли ваша среда разработки этому языку, и внесите необходимые изменения, если используете другой язык программирования.