задачи на двумерные массивы (pascal)

[loctar]

Найти количество элементов в каждой строке, больших (меньших) среднего арифметического элементов заданной строки.

прошу помощи , нифига в этом не рублю.

[Bugrimov]

Вы на каком курсе?

[loctar]

1-ый. на специальности не связанной с программированием

[Bugrimov]

В любом случае нужно пытаться освоить....

uses crt;
const N = 5;
var
  arr : array[1..N, 1..N] of  integer;
  i, j :                      integer;  { Счетчики  }
  countMin, countMax :        integer;  { Большее и меньшее среднеарифметического }
  summ :                      integer;  { Сумма элементов }
  sr :  array[1..N] of          real;     { Среднеарифметическое }
begin
  randomize;
  
  writeln;
  writeln(' Исходный массив:');
  writeln(' ----------------');
  
  for i := 1 to N do
  begin
  summ := 0;
    for j := 1 to N do
    begin
      arr[i, j] := 1 + random(20);    { Заполнение массива }
      write(' [', arr[i, j]:2, ']');  { Вывод значений на экран }
      summ := summ + arr[i, j];       { Подсчет суммы элементов в строке }
    end;
    sr[i] := (summ / N);              { Вычисление среднеарифметического в каждой строке }
    writeln;
  end;
  
  writeln;
  for i := 1 to N do
  begin
  countMin := 0;
  countMax := 0;
    for j := 1 to N do
    begin
      if(arr[i, j] < sr[i]) then
        countMin := countMin + 1
      else
        countMax := countMax + 1;
    end;
    write(' Ср. арифм. в ', i, '-й строке: ', sr[i]:4, '.');
    writeln(' Больших - ', countMax, ', меньших - ', countMin);
  end;
  writeln;
end.

Безымянный.jpg

[loctar]

я бы тебя даже обнял...) только ты перестарался, мало там хаоса и неопытности ))

[Bugrimov]

Вот только без этого... Ограничимся отзывом..