Заполните целочисленный массив А размером 9 элементов случайными числами из промежутка (-4,4) и выведите его на экран. После чего выполните с ним следующие задания 1. Найдите среднее арифметическое элементов массива.

2. Посчитайте количество элементов равных 1.

3. Замените отрицательные элементы на 0.

4. Найти произведение отрицательных элементов массива.

5. Найти коЛичество элементов массива, значение которых меньше арифметического элементов массива​

#include <iostream>using namespace std; int main(){     char str [] = "dd yhd yw dcjkayt dvqv auyj fbajk dyusdv sddw";     int k = 9; //position     int before=  0, after = 0, space = 0;                         for(int i = 0; i <= k; i++){             if(str[i] == ' '){                 space++;             }         }         if(str[k] != ' '){       for(int i = k + 1; str[i]; i++){         if(str[i] == ' ' || str[i] == '\0'){             after = i;                         break;                 }         }         for(int j = k - 1; j >= 0; j--){         if(str[j] == ' ' || j == 0){             before = j;                         break;                 }     }         cout<<space + 1<<" slovo ";         for(int i = before; i < after; i++)         cout<<str[i];         }         else cout<<space<<" slovo"; return 0; }

Блок-схема - в прилагаемом файле.
const n=5;
var
a:array[1..n,1..n] of integer;
i,j,min,imin,jmin:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
min:=a[1,2]; imin:=1; jmin:=2;
for i:=1 to n do
for j:=i+1 to n do
if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end;
writeln('min = a[',imin,',',jmin,'] = ',min);
end.

Пример:
Исходный массив:
  89  93   3  59  57
  15  57   5  65  85
   8   5  60  95  17
  83  67  21  20  93
  30  96  53  26  17
min = a[1,3] = 3