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

@Madkillwin · Регистрация: 19.05.2017

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

ХЕЛП!
в квадратной матрице 4го порядка все елементы расположенные выше главной диагонали, заменить на противоположные. матрицу заполнить по формуле А[i,j];=i-j*2 . выыести обе матрицы на чистый экран.
если можно с блок схемой.

@Zwelenewskiy · 19.05.2017, 13:52

Pascal

const
  n = 4;
  m = 4;
 
var
  a: array[1..n, 1..m] of integer;
  i, j: integer;
 
BEGIN
  writeln('Исходный массив: ');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := i - j * 2;  
      write(a[i, j]:4);      
    end;    
    writeln;
  end;
  
  writeln('Обработанный массив: ');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      if i = j
        then a[i, j] := -a[i, j];
      write(a[i, j]:4);
    end;
    writeln;
  end;
  
  
END.

Добавлено через 17 минут
Прошу прощения

Pascal

const
  n = 4;
  m = 4;
 
var
  a: array[1..n, 1..m] of integer;
  i, j: integer;
 
BEGIN
  writeln('Исходный массив: ');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := i - j * 2;  
      write(a[i, j]:4);      
    end;    
    writeln;
  end;
  
  writeln('Обработанный массив: ');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      if i >= j
        then a[i, j] := -a[i, j];
      write(a[i, j]:4);
    end;
    writeln;
  end;
  
  
END.

@Madkillwin · 19.05.2017, 14:04 **[ТС]**

спасибо огромное, а не поможешь с блок схемой этого кода.. "

@Zwelenewskiy · 19.05.2017, 17:13

Вот

@Zwelenewskiy · 19.05.2017, 17:16

А вернее так =)

@Madkillwin 0 / 0 / 0 Регистрация: 19.05.2017 Сообщений: 10
		1
	Все элементы, расположенные выше главной диагонали матрицы, заменить на противоположные 19.05.2017, 12:01. Показов 2134. Ответов 4 Метки нет (Все метки) ХЕЛП! в квадратной матрице 4го порядка все елементы расположенные выше главной диагонали, заменить на противоположные. матрицу заполнить по формуле А[i,j];=i-j*2 . выыести обе матрицы на чистый экран. если можно с блок схемой. 0

@Madkillwin 0 / 0 / 0 Регистрация: 19.05.2017 Сообщений: 10
	19.05.2017, 14:04 [ТС]	3
	спасибо огромное, а не поможешь с блок схемой этого кода.. " 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	19.05.2017, 17:13	4
	Вот Миниатюры 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	19.05.2017, 17:16	5
	А вернее так =) Миниатюры 1

Опции темы

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

Решение