Ввести матрицу, заменить удвоенным значением первый и последний элемент матрицы, матрицу вывести на печать

@Леха666666574 · Регистрация: 28.10.2016

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

Ввести матрицу А(n,m) вещественного типа найти среднее арифметическое положительных элементов матрицы ,заменить его удвоеным значением первый и последний элемент матрицы , матрицу вывести на печать

@Соколиный глаз · 26.10.2017, 18:22

Pascal

const
  N = 4;
  M = 4;
 
var
  A: array [0..N - 1, 0..M - 1] of real;
  Count, Sum: real;
 
begin
  for var i := 0 to N - 1 do
    for var j := 0 to M - 1 do
    begin
      Readln(A[i, j]);
      if A[i, j] > 0 then
      begin
        Sum += A[i, j];
        Count += 1;
      end;
    end;
  
  if Count = 0 then Writeln('The count of positive elements is too small (0).')
  else
  begin
    var Average := Sum / Count * 2;
    A[0, 0] := Average; [N - 1, M - 1] := Average;
    
    for var i := 0 to N - 1 do
    begin
      for var j := 0 to M - 1 do
        Write(A[i, j]:4);
      Writeln();
    end;
  end;
end.

@Леха666666574 0 / 0 / 0 Регистрация: 28.10.2016 Сообщений: 23
		1
	Ввести матрицу, заменить удвоенным значением первый и последний элемент матрицы, матрицу вывести на печать 26.10.2017, 15:43. Показов 1424. Ответов 1 Метки нет (Все метки) Ввести матрицу А(n,m) вещественного типа найти среднее арифметическое положительных элементов матрицы ,заменить его удвоеным значением первый и последний элемент матрицы , матрицу вывести на печать 0

Опции темы

Ввести матрицу, заменить удвоенным значением первый и последний элемент матрицы, матрицу вывести на печать

Решение