Найти среднее арифметическое и среднее геометрическое положительных элементов матрицы - Turbo Pascal

Формулировка задачи:

Найти среднее арифметическое и среднее геометрическое положительных элементов матрицы.
Uses CRT;
type
 matr = array[1..3,1..3] of integer;
 Var
 X       : matr;
 i,j,k,s,n,p,sre     : byte;
 Begin
 Writeln('vvesti X(3,3):');
 For i:=1 to 3 do
 For j:=1 to 3 do
read(n);
 readln(k);
 begin
 s:=s+k;
writeln('seredne arefmetichne =',s/n:5:2);
end;
for i:=1 to 3 do
for j:=1 to 3 do
begin
p:=p*x[ i , j ];
k:= k+1;
sre:= (exp(ln(p)*1/k));
end;
end.

Код к задаче: «Найти среднее арифметическое и среднее геометрическое положительных элементов матрицы - Turbo Pascal»

textual
Uses CRT;
const n=3;
type  matr = array[1..n,1..n] of integer;
Var X       : matr;
    i,j,k   : byte;
    s,p     :real;
Begin
Writeln('vvesti X(3,3):');
s:=0;
k:=0;
p:=1;
For i:=1 to 3 do
For j:=1 to 3 do
 begin
  write('X[',i,',',j,']=');
  readln(X[i,j]);
  if X[i,j]>0 then
   begin
    k:=k+1;
    s:=s+X[i,j];
    p:=p*X[i,j];
   end;
 end;
clrscr;
writeln('Matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(X[i,j]:5);
  writeln
 end;
if k=0 then write('Polozitelnyh net!')
else
 begin
  s:=s/k;
  p:=exp(ln(p)/k);
  writeln('seredne arefmetrichne =',s:5:2);
  writeln('seredne geometrichne =',p:5:2);
 end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 3.857 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы