Найти максимальный по значению элемент матрицы x (n,m) (n<=10,m<=15) и увеличить его в 2...

Question

Найти максимальный по значению элемент матрицы x (n,m) (n<=10,m<=15) и увеличить его в 2 раза. после этого вычислить среднее арифмитическое положительных элементов матрицы. полученную матрицу x и среднее арифмитическое распечатать<hr>

Answer 1

Program new;
var max.summ,i,j,kol:integer; x:array[1..10,1..15] of integer;sr:real;
begin
randomize;
for i=1 to 10 do
begin
for j=1 to 15 do
begin
x[i,j]:=random(51)-25;   {не знаю как у тебя заполняется матрица так что заполнил} 
end;                            {его сам отрицательными и положительными от-25 до 25} 
end;
max:=x[1,1];
summ:=0;
kol:=0;
for i=1 to 10 do
begin
for i=1 to 15 do
begin
if x[i,j]>max then max:=x[i,j]
if x[i,j]>0 then
begin
summ:=summ+x[i,j];
kol:=kol+1;
end;
end;
end;
for i=1 to 10 do
begin
for i=1 to 15 do
begin 
if a[i,j]:=max then a[i,j]:=a[i,j]*2
end;
end;
for i=1 to 10 do
begin
for i=1 to 15 do
begin
write(a[i,j]:3)
end;
writeln;
end;
sr:=summ/kol;
writeln('Среднее арифетическое равно',sr:6);
end.