Матрица. Заменить отрицательные элементы их модулями и обнулить первый столбец

@Эрика · Регистрация: 10.05.2012

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

дана матрица А(n,m) целых чисел. заменить все отрицательные элементы этой матрицы их модулями и обнулить первый столбец этой матрицы ,если матрица не содержит отрицательные элементы

@3a9Ic · 10.05.2012, 22:22

Pascal

Uses CRT;
Const n=5;
      m=4;
var a:array[1..n,1..m] of integer;
    i,j,k:integer;
begin
     ClrScr;
     for i:=1 to n do
     for j:=1 to m do
     begin
          a[i,j]:=Random(21)-3;
          gotoxy(j*5+5,i);
          write(a[i,j]);
     end;
     for i:=1 to n do
     for j:=1 to m do
     if a[i,j]<0 then
     begin
          a[i,j]:=abs(a[i,j]);
          inc(k);
     end;
     for i:=1 to n do
     for j:=1 to m do
     if k=0 then a[i,1]:=0;
     for i:=1 to n do
     for j:=1 to m do
     begin
          gotoxy(j*5+5,i+10);
          write(a[i,j]);
     end;
end.

@Эрика 0 / 0 / 0 Регистрация: 10.05.2012 Сообщений: 4
		1
	Матрица. Заменить отрицательные элементы их модулями и обнулить первый столбец 10.05.2012, 21:03. Показов 1998. Ответов 1 Метки нет (Все метки) дана матрица А(n,m) целых чисел. заменить все отрицательные элементы этой матрицы их модулями и обнулить первый столбец этой матрицы ,если матрица не содержит отрицательные элементы 0

Опции темы

Матрица. Заменить отрицательные элементы их модулями и обнулить первый столбец

Решение