Заменить все элементы строки g и столбца с номером f на противоположные по знаку

@Нелли3 · Регистрация: 19.04.2016

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

Дан массив T [1..m, 1..n]. Заменить все элементы строки g и столбца с номером f на противоположные по знаку, а элемент, стоящий на их пересечении, не изменять. Вывести преобразованный массив.

@Peoples · 26.05.2016, 20:11

Pascal

program pr;
 
var
  i, n, m, j, g, f: integer;
  a: array [1..100, 1..100] of integer;
 
begin
  writeln('Введите количнство строк матрицы');
  readln(n);
  writeln('Введите количнство столбцов матрицы');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(21) - 10;
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    writeln;
  end;
  writeln('Введите g');
  readln(g);
  writeln('Введите f');
  readln(f);
  for i := 1 to n do
    for j := 1 to m do
      a[g, f] := a[g, f];
  for j := 1 to m do
  begin
    a[g, j] := -a[g, j];
  end;
  for i := 1 to n do
  begin
    a[i, f] := -a[i, f];
  end;
  writeln;
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    writeln;
  end;
end.

@Нелли3 0 / 0 / 0 Регистрация: 19.04.2016 Сообщений: 14
		1
	Заменить все элементы строки g и столбца с номером f на противоположные по знаку 26.05.2016, 19:35. Показов 1234. Ответов 1 Метки нет (Все метки) Дан массив T [1..m, 1..n]. Заменить все элементы строки g и столбца с номером f на противоположные по знаку, а элемент, стоящий на их пересечении, не изменять. Вывести преобразованный массив. 0

Опции темы

Заменить все элементы строки g и столбца с номером f на противоположные по знаку

Решение