Массив: Для каждой строки заменить все элементы матрицы меньшие среднего арифметического этой строки на нулевое значение.

@Vampire110 · Регистрация: 18.05.2011

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

Задана вещественная матрица размером NхM. Для каждой строки заменить все элементы матрицы меньшие среднего арифметического этой строки на нулевое значение.

@Akcent2 · 06.12.2011, 13:29

Pascal

program zad;
uses crt;
 const n=5;
 const m=6;
      var
      a:array[1..n,1..m] of real;
      i,j,kol:integer;
      sr,sum:real;
       begin
 clrscr;
 for i:=1 to n do begin
 for j:=1 to m do begin
 a[i,j]:=random(10)-2; write(a[i,j]:3:0); end;
 writeln; end;
 writeln;
  for i:=1 to n do begin
  sr:=0; sum:=0;
  for j:=1 to m do begin
  sum:=sum+a[i,j]; inc(kol); end;
   sr:=sum/kol;
   writeln('среднее арифметическое ',i,' строки=',sr:5:2);
   for j:=1 to m do
   if  a[i,j]<sr then a[i,j]:=0;
   end;
       writeln;
         for i:=1 to n do begin
         for j:=1 to m do begin
 write(a[i,j]:3:0); end;
 writeln; end;
 end.

@Vampire110 17 / 17 / 0 Регистрация: 18.05.2011 Сообщений: 33
		1
	Массив: Для каждой строки заменить все элементы матрицы меньшие среднего арифметического этой строки на нулевое значение. 06.12.2011, 13:03. Показов 1626. Ответов 1 Метки нет (Все метки) Задана вещественная матрица размером NхM. Для каждой строки заменить все элементы матрицы меньшие среднего арифметического этой строки на нулевое значение. 1

Опции темы

Массив: Для каждой строки заменить все элементы матрицы меньшие среднего арифметического этой строки на нулевое значение.

Решение