Решаем задачи Абрамян на Паскале. Matrix30

Matrix30. Дана матрица размера $$M \times N$$. В каждом ее столбце найти количество элементов, больших среднего арифметического всех элементов этого столбца.

Решение:

program Matrix30;
var
  a:array [1..10,1..10] of integer;
  Sum,Num,M, N, i, j:Integer;
  Sred:Real;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);


 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 for  j:=1 to N do
  begin
   Sum:=0;
   for i:=1 to M do Sum:=Sum+a[i,j];
   Sred:=Sum/N;

   Num:=0;
   for i:=1 to M do
    if a[i,j]>Sred then Num:=Num+1;
   Writeln(j,' kol:',Num);
  end;
end.

program Matrix30;

var

a:array [1..10,1..10] of integer;

Sum,Num,M, N, i, j:Integer;

Sred:Real;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

for j:=1 to N do

begin

Sum:=0;

for i:=1 to M do Sum:=Sum+a[i,j];

Sred:=Sum/N;

Num:=0;

for i:=1 to M do

if a[i,j]>Sred then Num:=Num+1;

Writeln(j,' kol:',Num);

end;

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Matrix30

Комментарии:

Добавить комментарий Отменить ответ