Найти количество элементов матрицы больших среднего арифметического всех её элементов

Категория: Delphi/Pascal
2011-09-02 23:18:06
code: #delphi
  1. const N=10,M=10;
  2. var i,j,count:integer;
  3.      A:array [1..N,1..M] of float;
  4.      mean:float;
  5. begin
  6.   mean:=0.0;
  7.   for i:=1 to N do
  8.     for j:=1 to M do
  9.       mean:=mean+A[i,j];
  10.   mean:=mean/(M*N);
  11.   count:=0;
  12.   for i:=1 to N do
  13.     for j:=1 to M do
  14.       if A[i,j]>mean then
  15.         count:=count+1;
  16.   writeln(count)  
  17. end.
Поделиться:

Похожие статьи:

теги: консольное приложение, студенты, массив, двумерный массив, матрица