В каждой строке матрицы определить количество элементов, больших среднего арифметического этой строки

@ipod96 · Регистрация: 04.04.2015

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

дана вещественная матрица С размером 7 на 8 в каждой строке определить количество элементов больших среднего арифметического этой строки
Помогите плииззз

@Puporev · 12.04.2015, 21:21

Pascal

uses crt;
const m=7;
      n=8;
var c:array[1..m,1..n] of real;
    i,j,k:byte;
    s:real;
begin
randomize;
writeln('Матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=9*random;
    write(c[i,j]:5:2);
   end;
  writeln;
 end;
writeln('Количество элементов больших среднего в строках');
for i:=1 to m do
 begin
  s:=0;
  for j:=1 to n do
  s:=s+c[i,j];
  s:=s/n;
  k:=0;
  for j:=1 to n do
  if c[i,j]>s then k:=k+1;
  writeln('Строка ',i,'=',k);
 end;
end.

@ipod96 0 / 0 / 0 Регистрация: 04.04.2015 Сообщений: 39
		1
	В каждой строке матрицы определить количество элементов, больших среднего арифметического этой строки 12.04.2015, 18:18. Показов 1937. Ответов 1 Метки нет (Все метки) дана вещественная матрица С размером 7 на 8 в каждой строке определить количество элементов больших среднего арифметического этой строки Помогите плииззз 0

Опции темы

В каждой строке матрицы определить количество элементов, больших среднего арифметического этой строки

Решение