Получить массив из среднего геометрического заданных элементов матрицы

@Grihan250 · Регистрация: 15.11.2017

Author24 — интернет-сервис помощи студентам

A[1..10, 1..10]
B[1..10]
C[1..10]

Вычислить построчно в верхней треугольной матрице A среднее геометрическое значение положительных элементов массива A.
Разместить среднее геометрическое в соответствующей ячейке массива B (если положительных элементов не найдено, то указать значение - 0).
Разместить количество указанных положительных элементов в соответствующей ячейке массива C.

Буду очень признателен

@Puporev · 16.11.2017, 11:37

Pascal

var a:array[1..10,1..10] of integer;
    b:array[1..10] of real;
    c:array[1..10] of byte;
    n,i,j,k:integer;
    p:real;
begin
randomize;
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Матрица А');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  k:=0;
  p:=1;
  for j:=i to n do
  if a[i,j]>0 then
   begin
    k:=k+1;
    p:=p*a[i,j];
   end;
  if k=0 then b[i]:=0 else b[i]:=exp(ln(p)/k);
  c[i]:=k;
 end;
writeln('Массив B');
for i:=1 to n do
write(b[i]:5:2);
writeln;
writeln('Массив С');
for i:=1 to n do
write(c[i]:3);
end.

@Grihan250 0 / 0 / 0 Регистрация: 15.11.2017 Сообщений: 1
		1
	Получить массив из среднего геометрического заданных элементов матрицы 15.11.2017, 20:56. Показов 1581. Ответов 1 Метки нет (Все метки) A[1..10, 1..10] B[1..10] C[1..10] Вычислить построчно в верхней треугольной матрице A среднее геометрическое значение положительных элементов массива A. Разместить среднее геометрическое в соответствующей ячейке массива B (если положительных элементов не найдено, то указать значение - 0). Разместить количество указанных положительных элементов в соответствующей ячейке массива C. Буду очень признателен 0

	16.11.2017, 11:37

Получить массив из среднего геометрического заданных элементов матрицы

Решение