Помогите пожалуйста с информатикой.

В Паскале?

program array_operations;

uses Math;

const
N = 10;

var
arr: array[1..N] of integer;
i, max_idx: integer;
mean: real;

begin
// заполняем массив случайными числами
for i := 1 to N do begin
arr[i] := random(201) - 100; // генерируем от -100 до 100
end;

// выводим исходный массив
writeln('Исходный массив:');
for i := 1 to N do begin
write(arr[i], ' ');
end;
writeln();

// находим индекс наибольшего элемента и меняем его местами с первым элементом
max_idx := 1;
for i := 2 to N do begin
if arr[i] > arr[max_idx] then begin
max_idx := i;
end;
end;
arr[1] := arr[1] + arr[max_idx];
arr[max_idx] := arr[1] - arr[max_idx];
arr[1] := arr[1] - arr[max_idx];
writeln('Массив после перемены местами первого и наибольшего элементов:');
for i := 1 to N do begin
write(arr[i], ' ');
end;
writeln();

// делим все элементы массива на его наибольший элемент
for i := 1 to N do begin
arr[i] := round(arr[i] / arr[1] * 10) / 10; // округляем до одной десятой
end;
writeln('Массив после деления на наибольший элемент:');
for i := 1 to N do begin
write(arr[i]:3, ' ');
end;
writeln();

// находим среднее арифметическое и заменяем нулями все элементы массива, превосходящие его
mean := 0;
for i := 1 to N do begin
mean := mean + arr[i];
end;
mean := mean / N;
for i := 1 to N do begin
if arr[i] > mean then begin
arr[i] := 0;
end;
end;
writeln('Массив после замены элементов, превосходящих среднее арифметическое, на нули:');
for i := 1 to N do begin
write(arr[i]:3, ' ');
end;
writeln();
end.