у меня ошибку выдает все время (((Дан массив V(N,M). Разделить все его положительные элементы, расположенные выше главной диагонали, на среднее значение элементов массива .
Ты для сначала выложи свой вариант, будет легче найти ошибку.
var
arr:array[1..10, 1..10] of integer;
M, N, i, j, sum: integer;
sr: real;
begin
write('M, N = ');
readln(m,n);
if m <> n then begin
writeln('Матрица должна быть квадратной');
halt;
end;
for i:=1 to m do begin
for j:=1 to n do begin
arr[i,j]:=random(10);
inc(sum, arr[i,j]);
write(arr[i,j],' ');
end;
writeln;
end;
sr:=sum/(m*n);
writeln('Среднее значение массива: ',sr);
for i:=1 to m do
for j:=1 to n do
if (i
write(arr[i,j],'/',sr,'=',(arr[i,j])/sr,' | ');
end.
⇢