Заменить все элементы k-й строки и s-го столбца двухмерного массива на противоположные по знаку

@Alina22 · Регистрация: 30.01.2012

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

Заменить все элементы k-й строки и s-го столбца двухмерного массива на противоположные по знаку (элемент, стоящий на пересечении, не изменять)

Помогите написать лишь ту часть программы,где нужно элемент стоящий на пересечении не изменять
как это записать?

@ermolay · 18.02.2012, 20:46

если поменять знаки сначала столбца а потом строки, знак элемента на пересечении вернется в исходное состояние, а можно предварительно его запомнить и вернуть после всех манипуляций..

Pascal

1
2
3

bufer:=a[i,j];
..
a[i,j]:=bufer;

@Puporev · 18.02.2012, 21:23

Pascal

1
2
3

for i:=1 to n do
for j:=1 to m do
if((i=k)and(j<>s))or(j=s)and(i<>k)) then a[i,j]:=-a[i,j];

@Mr_Brown · 26.04.2013, 08:41

Puporev, а можете всю программу написать?

@Тамила · 26.04.2013, 09:00

Pascal

uses crt;
var
   a:array[1..100,1..100]of integer;
   i,j,n,m,k,s:integer;
begin
   clrscr;
   randomize;
   write('n=');
   read(n);
   write('m=');
   read(m);
   for i:=1 to n do
   for j:=1 to m do
    a[i,j]:=random(100)-50;
   for i:=1 to n do
    begin
       for j:=1 to m do
        write(a[i,j],'  ');
       writeln;
    end;
   writeln;
   write('k=');
   read(k);
   write('s=');
   read(s);
   if (k>n)or(s>m) then writeln('nevernye dannye')
    else
     begin
        for i:=1 to n do
        for j:=1 to m do
         if ((i=k)and(j<>s))or((j=s)and(i<>k)) then a[i,j]:=-a[i,j];
        writeln;
        for i:=1 to n do
         begin
            for j:=1 to m do
             write(a[i,j],'  ');
            writeln;
         end;
     end;
   readkey;
end.

@Alina22 1 / 1 / 0 Регистрация: 30.01.2012 Сообщений: 19
		1
	Заменить все элементы k-й строки и s-го столбца двухмерного массива на противоположные по знаку 18.02.2012, 20:34. Показов 2700. Ответов 4 Метки нет (Все метки) Заменить все элементы k-й строки и s-го столбца двухмерного массива на противоположные по знаку (элемент, стоящий на пересечении, не изменять) Помогите написать лишь ту часть программы,где нужно элемент стоящий на пересечении не изменять как это записать? 0

@Mr_Brown 0 / 0 / 0 Регистрация: 19.03.2013 Сообщений: 17
	26.04.2013, 08:41	4
	Puporev, а можете всю программу написать? 0

Опции темы