Question

Антон, давай ещё раз с заданием. Напиши программу в паскале заполнения массива из 15 элементов случайными числами из диапазона [-5,10] и поиска максимального элемента.

Answer 1

Ответ:

var x:integer;

a:array[0..14] of integer;

begin

 for var i:=0 to 14 do

 begin

   a[i]:=random(16)-5;

   writeln(a[i]);

   if x<a[i] then x:=a[i];

 end;

 writeln;

 writeln('Максимальное число в массиве = ',x);

end.

Answer 2

Конечно, вот программа на языке Pascal, которая создает массив из 15 элементов, заполняет его случайными числами в диапазоне от -5 до 10 и затем находит максимальный элемент:

pascalCopy code
program MaxElementExample;

const
  N = 15;
  MinValue = -5;
  MaxValue = 10;

var
  arr: array[1..N] of Integer;
  i, maxElement: Integer;

begin
  // Инициализируем генератор случайных чисел
  Randomize;

  // Заполняем массив случайными числами
  for i := 1 to N do
    arr[i] := Random(MaxValue - MinValue + 1) + MinValue;

  // Начальное значение максимального элемента
  maxElement := arr[1];

  // Ищем максимальный элемент
  for i := 2 to N do
  begin
    if arr[i] > maxElement then
      maxElement := arr[i];
  end;

  // Выводим результат
  writeln('Массив случайных чисел:');
  for i := 1 to N do
    write(arr[i], ' ');

  writeln;
  writeln('Максимальный элемент в массиве: ', maxElement);
end.

Эта программа создает массив arr из 15 элементов, заполняет его случайными числами в заданном диапазоне и затем находит и выводит максимальный элемент этого массива.