Решите и оценку в 5 звёзд​

{Дан массив из 100 элементов (заполняется случайно). Найти сумму тех элементов массива, порядковые номера которых не совпадают со значением этого элемента.}var j,k,i:integer;sum:longint;R:Array[1..100] of integer;Beginfor i:=1 to 100 do beginR[i]:= random(95)-25;write(R[i]:3);if i <> R[i] then sum:= sum + R[i];end;writeln;writeln('сумму элементов массива = ',sum);end.
{Дан массив из 100 целых чисел (числа вводятся случайно). Найти максимальный элемент массива.}var k,i,max:integer;R:Array[1..100] of integer;Beginmax:=-25;for i:=1 to 100 do beginR[i]:= random(95)-25;write(R[i]:3);if R[i] > max then max:= R[i];end;writeln;writeln('максимальный элемент массива = ',max);end.

#include

using namespace std;

int n, m, mat[1000][1000], avg[1000];
//вместо 1000 пиши максимальный размер матрицы по условию

int main() {
cin >> n >> m;
int s;
int cmax = 0;
for(int i = 0; i < n; ++i) {
s = 0;
for(int j = 0; j < m; ++j) {
cin >> mat[i][j];
s += mat[i][j];
if (mat[i][j] > cmax) cmax = mat[i][j];
}
avg[i] = s / m;
}

int cnt;
for(int i = 0; i < n; ++i) {
cnt = 0;
for(int j = 0; j < m; ++ j) {
if (mat[i][j] <= avg[i]) ++cnt;
}

cout << “Для строки номер » << i << « ответ равен: » << cnt;
}
cout << “максимальный положительный элемент: ” << cmax;

return 0;
}