Помогите решить 1)Дан массив из 20 элементов заполненный случайными целыми числами из интервала[-10;10].Выведите...

1) Для решения данной задачи нам необходимо:

• Создать массив из 20 элементов и заполнить его случайными целыми числами из интервала [-10;10].
• Вывести данный массив на экран в виде строки.
• Найти наибольший элемент среди отрицательных элементов массива.

Пример кода на PascalABC.NET:

program MaxNegativeElement;
var
  arr: array[1.20] of integer;
  i, maxNeg: integer;
begin
  Randomize;
  
  // Заполняем массив случайными числами
  for i := 1 to 20 do
  begin
    arr[i] := RandomRange(-10, 11);
    Write(arr[i], ' ');
  end;
  
  maxNeg := -11; // Инициализируем переменную для хранения наибольшего отрицательного элемента
  
  // Находим наибольший отрицательный элемент
  for i := 1 to 20 do
  begin
    if (arr[i] < 0) and (arr[i] > maxNeg) then
      maxNeg := arr[i];
  end;
  
  Writeln;
  Writeln('Наибольший отрицательный элемент: ', maxNeg);
end.

2) Для решения второй задачи нам необходимо:

• Создать массив из 15 элементов и заполнить его случайными целыми числами из интервала [-10;10].
• Вывести данный массив на экран в виде строки.
• Заменить элементы массива, которые не больше 3, их кубами.
• Вывести измененный массив на экран в виде строки.

Пример кода на PascalABC.NET:

program ReplaceElements;
var
  arr: array[1.15] of integer;
  i: integer;
begin
  Randomize;
  
  // Заполняем массив случайными числами
  for i := 1 to 15 do
  begin
    arr[i] := RandomRange(-10, 11);
    Write(arr[i], ' ');
  end;
  
  Writeln;
  
  // Заменяем элементы не больше 3 их кубами
  for i := 1 to 15 do
  begin
    if arr[i] 

1) var arr: array[1.20] of integer; i, maxNeg: integer; begin Randomize;

for i := 1 to 20 do begin

arr[i] := RandomRange(-10, 11);
write(arr[i], ' ');

end;

maxNeg := -11; // инициализируем переменную значением меньше минимального отрицательного числа

for i := 1 to 20 do begin

if (arr[i] < 0) and (arr[i] > maxNeg) then
  maxNeg := arr[i];

end;

writeln; writeln('Наибольший элемент среди отрицательных: ', maxNeg); end.

2) var arr: array[1.15] of integer; i: integer; begin Randomize;

for i := 1 to 15 do begin

arr[i] := RandomRange(-10, 11);
write(arr[i], ' ');

end;

writeln;

for i := 1 to 15 do begin

if abs(arr[i]) 

Для решения вашей задачи на языке программирования PascalABC.NET, мы создадим две программы: первая будет решать первую задачу, а вторая — вторую. Я подробно опишу, как это сделать.

Задача 1

1. Создать массив из 20 элементов: Заполним массив случайными числами от -10 до 10.
2. Вывести массив в строку: Для этого пройдемся по каждому элементу массива и выведем его.
3. Найти наибольший отрицательный элемент: Пройдемся по массиву, проверяя, является ли элемент отрицательным, и если да, будем проверять, больше ли он текущего максимального значения.

Вот как это может выглядеть на PascalABC.NET:

program FindMaxNegativeElement;
var
  arr: array[1.20] of Integer;
  i: Integer;
  maxNegative: Integer;
begin
  Randomize;
  
  // Заполнение массива и вывод его элементов
  Write('Массив: ');
  for i := 1 to 20 do
  begin
    arr[i] := Random(21) - 10; // случайные числа от -10 до 10
    Write(arr[i], ' ');
  end;
  Writeln;
  
  // Поиск наибольшего отрицательного элемента
  maxNegative := -11; // Значение меньше минимально возможного в массиве
  for i := 1 to 20 do
  begin
    if (arr[i] < 0) and (arr[i] > maxNegative) then
    begin
      maxNegative := arr[i];
    end;
  end;
  
  if maxNegative = -11 then
    Writeln('В массиве нет отрицательных элементов.')
  else
    Writeln('Наибольший отрицательный элемент: ', maxNegative);
end.

Задача 2

1. Создать массив из 15 элементов: Заполним массив случайными числами от -10 до 10.
2. Вывести массив в строку: Аналогично, как мы сделали в первой задаче.
3. Заменить элементы, не больше 3, их кубами: Пройдемся по массиву и заменим элементы, если они удовлетворяют условию.

Программа для второй задачи будет выглядеть так:

program ModifyArrayElements;
var
  arr: array[1.15] of Integer;
  i: Integer;
begin
  Randomize;
  
  // Заполнение массива и вывод его элементов
  Write('Исходный массив: ');
  for i := 1 to 15 do
  begin
    arr[i] := Random(21) - 10; // случайные числа от -10 до 10
    Write(arr[i], ' ');
  end;
  Writeln;
  
  // Замена элементов не больше 3 на их кубы
  Write('Измененный массив: ');
  for i := 1 to 15 do
  begin
    if arr[i]