Дана матрица размера 5 x 10. В каждой строке найти количество элементов

[Executioner3]

Не могу составить программу...
Дана матрица размера 5 x 10. В каждой строке найти количество элементов, больших среднего арифметического всех элементов этой строки.

[Gollandec]

Забыл указать самое главное-на каком языке или любой подойдет?

[ROMA2PVT]

На русском ему написать.И сойдёт.

[Stilet]

А что не получается формирование матрицы или получение количества и среднего арифметического?

[Executioner3]

Я пропустил много.....И теперь разобраться не как получается!!!
Язык желательно Английский.....
Буду при много благодарен тому кто еще с блок схемой поможет

[Gollandec]

Извиняюсь за тупой вопрос,но при чем тут Английский?Я имел ввиду язык программирования
ROMA2PVT +1)))))))

[ROMA2PVT]

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,.

[Gollandec]

Сообщение от Executioner3

Я пропустил много.....И теперь разобраться не как получается!!!
Язык желательно Английский.....
Буду при много благодарен тому кто еще с блок схемой поможет

Первую часть сообщения я писал к этому, а твою шутку про русский я заценил и поставил +1))))))))

[Stilet]

Язык желательно Английский.....

Пожалуйста:

MODULE Matrica;
IMPORT StdLog,ObxRandom;
VAR  e:ARRAY(5) OF ARRAY(10) OF INTEGER;

PROCEDURE OutMatrica;
VAR sa,i,j,ki:INTEGER;
BEGIN sa:=0;
 FOR i:=0 TO LEN(e)-1 DO 
  FOR j:=0 TO LEN(e[i])-1 DO
    e[i,j]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
    sa:=sa+e[i,j];
    StdLog.Int(e[i,j]);
    StdLog.Tab;
  END;
  sa:=sa DIV (LEN(e[i]));
  ki:=0;
  FOR j:=0 TO LEN(e[i])-1 DO
   IF e[i,j]>sa THEN INC(ki); END;
  END;
  StdLog.Tab;StdLog.Int(ki);StdLog.Ln;
 END;
END OutMatrica;


PROCEDURE do*;
VAR n,k,e:INTEGER;
BEGIN

 StdLog.Clear;
 OutMatrica;

END do;

END Matrica.

[ROMA2PVT]

Первую часть сообщения я писал к этому, а твою шутку про русский я заценил и поставил +1))))))))

Оффтоп:
Я знаю.Чёт тупанул я маленько.