Матрицы :D

[SkyL1ne]

начал изучение матрицы и вот сразу столкнулся с проблемой

как можно определить количество элементов больше средне арифметического?

сначала найти среднеарифметическое, а потом его с каждым сравнивать?

[SkyL1ne]

rows := 7;
cols := 8;
for i:=1 to rows do begin
sum := 0;
for j:=1 to cols do
inc(sum, a[i, j]);
arf := sum / rows;
count2 := 0;
for i:=1 to rows do
if a[i, j]<аrf then inc(count2)
writeln('Число элементов ', i, ' строки:');
writeln(' больше среднеарифметического = ', count2);
writeln;
end;

[SkyL1ne]

вот написал что знал, хотелось бы знать правильно ли написал программу

[ROMA2PVT]

Гдето я ''твой'' код видел.
Вот так будет.

uses
  Crt;
var
  a:array [1..20,1..20] of integer;
  i,j,n,m,sum,kol,k:integer;
  sredn:real;
begin
  ClrScr;
  randomize;
  write('Введите количество строк: ');
  readln(n);
  write('Введите количество столбцов: ');
  readln(m);
  writeln('Исходный массив: ');
  for i:=1 to N do
  begin
    for j:=1 to m do
    begin
    a[i,j]:=random(10)-5;
    write(a[i,j]:3);
    end;
    writeln;
    end;
    writeln;
    
    sum:=0;
    kol:=0;
 for i:=1 to n do
   begin
   for j:=1 to m do
   begin
   sum:=sum+a[i,j];
   inc(kol);
  end;
  end;
  
  sredn:=sum/kol;
  writeln;
  writeln('Сумма элементов: ');
   writeln(sum);
    writeln('Среднее арифметическое: ');
   writeln(sredn);
   
   k:=0;
    for i:=1 to n do
   begin
   for j:=1 to m do
   if a[i,j]>sredn then
   begin
   inc(k);
   end;
   end;
   writeln('Количество элементов больше среднего арифметического: ');
   writeln(k);
   end.

[SkyL1ne]

ну задача довольно распространенная, поэтому это не удивительно)

как я понял, Это ввод матрицы случайных чисел?

[ROMA2PVT]

как я понял, Это ввод матрицы случайных чисел?

Верно понял.Задача то может и распространённая но вот левая переменная srf перепутанная мне запомнилась.

[SkyL1ne]

почему левая?)
а понял, ну не все мы идеальны :D

все равно спасибо за помощь)
хоть разобрался)

[ROMA2PVT]

Нз.Да там разбираться особо невчем.