Матрица. Заменить нулями все отрицательные элементы этой матрицы, если они не являются элементами главной диагонали

@artur92 · Регистрация: 23.06.2010

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

Дана целочисленная квадратная матрица порядка n(n=4).заменить нулями все отрицательные элементы этой матрицы, если они не являются элементами главной диагонали.

Элементы первой и последней строк матрицы.
Введите построчно элементы матрицы:
-2 9 -21 3
4 -8 -7 6
-12 4 5 -7
-6 10 2 -8
Элементы преобразованной матрицы:
-2 9 0 3
4 -8 0 6
0 4 5 0
0 10 2 -8.

Повторите запуск программы, сформировав элементы массива с помощью генератора случайных чисел в диапазоне от [-30;25]. Элементы вывести на экран виде матрицы .

@Puporev · 26.06.2010, 08:29

Pascal

uses crt;
const n=4;
type matr=array[1..n,1..n] of integer;
procedure Zamena(var a:matr);
var i,j:byte;
begin
writeln('Замена отрицательных не на главной диагонали на ноль:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (j<>i)and(a[i,j]<0)then a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln;
end;
var a:matr;
    i,j:byte;
begin
clrscr;
randomize;
writeln('Введите ',n,' строк целых чисел по ',n,' элементов в строке:');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
readln;
Zamena(a);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(56)-30;
    write(a[i,j]:4);
   end;
  writeln;
 end;
Zamena(a);
end.

@artur92 1 / 1 / 0 Регистрация: 23.06.2010 Сообщений: 54
		1
	Матрица. Заменить нулями все отрицательные элементы этой матрицы, если они не являются элементами главной диагонали 25.06.2010, 21:56. Показов 1729. Ответов 1 Метки нет (Все метки) Дана целочисленная квадратная матрица порядка n(n=4).заменить нулями все отрицательные элементы этой матрицы, если они не являются элементами главной диагонали. Элементы первой и последней строк матрицы. Введите построчно элементы матрицы: -2 9 -21 3 4 -8 -7 6 -12 4 5 -7 -6 10 2 -8 Элементы преобразованной матрицы: -2 9 0 3 4 -8 0 6 0 4 5 0 0 10 2 -8. Повторите запуск программы, сформировав элементы массива с помощью генератора случайных чисел в диапазоне от [-30;25]. Элементы вывести на экран виде матрицы . 0

	26.06.2010, 08:29

Матрица. Заменить нулями все отрицательные элементы этой матрицы, если они не являются элементами главной диагонали

Решение