Дана матрица размера MxN. В каждой ее строке найти кол-во элементов, меньших среднего арифметического всех элементов этой строки

@Slon59 · Регистрация: 24.12.2013

Студворк — интернет-сервис помощи студентам

Дана матрица размера MxN.В каждой ее строке найти кол-во элементов, меньших среднего арифметического всех элементов этой строки.

@biol · 07.02.2014, 09:17

Pascal

uses crt;
const m=4;
n=5;
var a:array[1..m,1..n] of integer;
i,j,s,l:integer; k:real;
begin
l:=0;
randomize;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(99);
write (a[i,j]:3);
end;
writeln;
end;
writeln;
for i:=1 to m do
  begin
    s:=0; k:=0; l:=0;
    for j:=1 to n do begin
    s:=s+a[i,j];
    k:= s/n;
    if a[i,j] < k then inc(l);
    end;
    write (l:2);
  end;
 
end.

@Slon59 0 / 0 / 0 Регистрация: 24.12.2013 Сообщений: 24
		1
	Дана матрица размера MxN. В каждой ее строке найти кол-во элементов, меньших среднего арифметического всех элементов этой строки 06.02.2014, 21:33. Показов 3423. Ответов 1 Метки нет (Все метки) Дана матрица размера MxN.В каждой ее строке найти кол-во элементов, меньших среднего арифметического всех элементов этой строки. 0

	07.02.2014, 09:17

Опции темы

Дана матрица размера MxN. В каждой ее строке найти кол-во элементов, меньших среднего арифметического всех элементов этой строки

Решение