среднее арифметическое

[ggod]

найти среднее арифметическое отрицательных элементов матрицы лежащей ниже главной диагонали и среднее арифметическое главной диагонали

[Bruto]

uses CRT;
var w:array [1..8, 1..8] of integer;
 i,j,k:integer;
 ser:real;
begin
ser:=0;
k:=0;
for i:=1 to 7 do * *{ввод матрицы и расчет количества минус. елем.}
begin
 for j:=1 to 7 do
 begin
w[i,j]:=random(200)-100;
if w[i,j]<0 then k:=k+1;
 end;
 w[i,8]:=k;
 k:=0;
end;

for i:=1 to 7 do * *{вывод на экран конечной матрицы}
begin
 for j:=1 to 8 do
 write(w[i,j]:4);
 writeln;
end;

for i:=1 to 7 do * *{нахожд. средн арефм гл. диоганали}
k:=k+w[i,i];
ser:=k/7;
writeln;
writeln(k:4);
end.

Код не мой но помочь может

[ggod]

Сообщение от Bruto

uses CRT;
var w:array [1..8, 1..8] of integer;
 i,j,k:integer;
 ser:real;
begin
ser:=0;
k:=0;
for i:=1 to 7 do * *{ввод матрицы и расчет количества минус. елем.}
begin
 for j:=1 to 7 do
 begin
w[i,j]:=random(200)-100;
if w[i,j]<0 then k:=k+1;
 end;
 w[i,8]:=k;
 k:=0;
end;

for i:=1 to 7 do * *{вывод на экран конечной матрицы}
begin
 for j:=1 to 8 do
 write(w[i,j]:4);
 writeln;
end;

for i:=1 to 7 do * *{нахожд. средн арефм гл. диоганали}
k:=k+w[i,i];
ser:=k/7;
writeln;
writeln(ser:4);
end.

Код не мой но помочь может

не сильно помогло но спасибо(проблема состоит не в главной диагонали а в том что ниже нее)

[Аватар]

проблема состоит не в главной диагонали а в том что ниже нее

Нет ни какой проблемы, просто циклы чуть по другому

var w:array [1..8, 1..8] of integer;
...
for i:=2 to 8 do
  for j:=1 to i-1 do
... и вперед - анализируй, суммируй, за циклом дели для нахождения среднего

[ggod]

Сообщение от Аватар

Нет ни какой проблемы, просто циклы чуть по другому

var w:array [1..8, 1..8] of integer;
...
for i:=2 to 8 do
  for j:=1 to i-1 do
... и вперед - анализируй, суммируй, за циклом дели для нахождения среднего

program ss;
var A:array[1..100,1..100] of integer; {переменная массива}
i,j,n:integer; {переменные для циклов}
sum,kol:integer; {переменные суммы и кол-ва}
srar:real;

begin
write ('Vvedite razmer massiva A');
readln (n); {считываем размер массива}

for i:=1 to n do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end; {считываем сам массив}

write ('Vot vvedennyy vami massiv A- ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end; {выводим массив на экран}

sum:=0; kol:=0; {сумме и кол-ву присваиваем изначально нули}

for i:=1 to n do
for j:=1 to n do {циклами проходим по матрице}
if (A[i,j]<0) and (i>j) then {прописываем условия отрицательные и ниже диагонали}
begin
inc(kol);
sum:=sum+A[i,j];
end; {сумму и кол-во соответственно увеличиваем}
writeln;
srar:=sum/kol;
writeln('srar =',srar ); {выводим на экран среднее арифм}


readln;
end.

подходит?

[Аватар]

подходит?

Угу, тоже вариант, только мой чуть по-быстрей

[ggod]

program ss;
var A:array[1..100,1..100] of integer; {переменная массива}
i,j,n,k:integer; {переменные для циклов}
sum,kol:integer; {переменные суммы и кол-ва}
srar,ser:real;

begin
write ('Vvedite razmer massiva A');
readln (n); {считываем размер массива}

for i:=1 to n do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end; {считываем сам массив}

write ('Vot vvedennyy vami massiv A- ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end; {выводим массив на экран}

sum:=0; kol:=0; {сумме и кол-ву присваиваем изначально нули}

for i:=1 to n do
for j:=1 to n do {циклами проходим по матрице}
if (A[i,j]<0) and (i>j) then {прописываем условия отрицательные и ниже диагонали}
begin
inc(kol);
sum:=sum+A[i,j];
end; {сумму и кол-во соответственно увеличиваем}
writeln;
srar:=sum/kol;
writeln('среднее арифметическое отриц.элем. под главной диагональю =',srar ); {выводим на экран среднее арифм}
for i:=1 to 4 do {нахожд. средн арефм гл. диоганали}
k:=k+a[i,i];
ser:=k/4;
writeln;
writeln('среднее арифметическое главной диагонали =',ser);
readln;
end.

[Аватар]

for i:=1 to 4 do {нахожд. средн арефм гл. диоганали}

Почему до 4, а не до n?