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

[Executioner3]

Благодарен за помощь....
НО в твоей программе что то неправильно...!(мы некоторые действия не изучали....=) )
язык программирования Паскаль

[ROMA2PVT]

Онаж на английском!!!
АхаХа

program massiv;
Uses
   CRT;
var
a:array[1..100,1..100] of integer;
i,j,n,m,sum,k:integer;
arifm:real;
begin
Clrscr;
  randomize;
  write('введите колличество строк: ');
  readln(n);
  write('введите колличество столбцов: ');
  readln(m);
  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;
for i:=1 to n do
begin
   sum:=0;
  for j:=1 to m do
  inc(sum,a[i,j]);
  arifm:=sum/m;
  k:=0;
  for j:=1 to m do
   if a[i, j]>arifm then inc(k);
  writeln('Количество элементов ', i, ' строки:','  большее среднего арифметического = ',k);
  writeln;
  end;
end.

[Executioner3]

С Английским ты верно подметил...
ха ха ха....
При много благодарен....хорошо что есть понимающие люди....желающие помочь..
РЕСПЕКТ И УВАЖУХА ТЕБЕ: