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

@Григулевич Анна · Регистрация: 15.06.2012

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

срочно помогите, пожалуйста решить...разработать функцию для вычисления среднего арифметического положительных элементов одномерного массива. С помощью этой функции вычислить средн. арифм. положительных элементов 5ой строки матрицы X, имеющей 7 строк и 10 столбцов

Добавлено через 23 минуты
пожалуйста-пожалуйста.срочно надо)

@ermolay · 18.06.2012, 10:35

Pascal

const
  n=7;
  m=10;
  
type
  tArr=array[1..n,1..m] of integer;
  
function sredn(x1,m1: integer; var ar: tArr): real;
var i,j,k: integer;
    s: real;
begin
  k:=0;
  for j:=1 to m1 do
    if ar[x1,j]>0 then 
    begin
      inc(k);
      s:=s+ar[x1,j];
    end;
  s:=s/k;
  sredn:=s;
end;
 
var
  a: tArr;
  x,i,j: integer;
begin
  randomize;
  x:=5;
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  writeln('Среднее положительных ',x,'-й строки = ',sredn(x,m,a):5:2);
  readln;
end.

@Григулевич Анна 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 3
		1
	Вычислить среднее арифметическое положительных элементов одномерного массива 18.06.2012, 10:24. Показов 2081. Ответов 1 Метки нет (Все метки) срочно помогите, пожалуйста решить...разработать функцию для вычисления среднего арифметического положительных элементов одномерного массива. С помощью этой функции вычислить средн. арифм. положительных элементов 5ой строки матрицы X, имеющей 7 строк и 10 столбцов Добавлено через 23 минуты пожалуйста-пожалуйста.срочно надо) 0

	18.06.2012, 10:35

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

Решение