Решение на паскале! Разработать программу, которая запоминает в двумерном массиве, имеющем 4 строки и 5 столбцов, числа от –10 до 5, получаемые случайным образом, а затем
заменяет все отрицательные элементы на значение среднего арифметического
для строки, в которой размещен этот элемент. на паскале полное решение

void Func(const unsigned int N) {

std::vector<int> A(N);

unsigned int Neg = 0, Pos = 0;

for (unsigned int i = 0; i < A.size(); i++) {

 A[i] = rand() % 10 - rand() % 20;

 std::cout << A[i] << " ";

 if (A[i] >= 0) {

  Pos++;

 }

 else {

  Neg++;

 }

}

std::cout << std::endl;

std::cout <<( Pos > Neg ? "Больше чисел положительных" : "Больше чисел отрицательных либо их количества равны") << std::endl;

}

Объяснение:

Для этого еще подключи <vector>, и, очевидно, <iostream>

Program ex;

// Функция для определения из двух чисел минимальное
function min(a, b: real): real;
begin
    if (a > b) then min := b else min := a
end;

// Функция для определения из двух чисел максимальное
function max2(a, b: real): real;
begin
    if (a > b) then max2 := a else max2 := b
end;

// Функция для определения из трех чисел максимальное
function max3(a, b, c: real): real;
begin
    // Сначала определяем максимальное из первых двух чисел,
    // затем у нас останется два числа и нам остается определить
    // максимальное из них
    max3 := max2(max2(a, b), c);
end;

var
    x, y, z, d, max_int: real;
begin
    writeln('Введите 4 числа');
    readln(x, y, z, d);
    max_int := max3(min(x, y), min(x, z), min(z, d));
    writeln(max_int);
end.