Обнулить главную диагональ матрицы

@aragonzp · Регистрация: 13.01.2010

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

Дан двумерный массив А(5,5) в виде квадратной матрицы. Составьте программу, обнуляющую главную диагональ матрицы, если в ней найдется хоть один отрицательный элемент. Значения элементов массива задайте самостоятельно, используя процедуру ввода данных с клавиатуры. Для ввода данных и обработки массива используйте оператор цикла FOR. Выведите на экран исходную и преобразованную матрицу.
Зарание спасибо!

@mamedovvms · 02.03.2010, 09:17

Pascal

l:=false;
i:=1;
while (i<=4)and(l=false) do
 begin
  if a[i,i]<0 then l:=true;
   else inc(i);
 end;
 
if l then
 for i:=1 to 4 do
   a[i,i]:=0;

@aragonzp 3 / 3 / 0 Регистрация: 13.01.2010 Сообщений: 51
		1
	Обнулить главную диагональ матрицы 02.03.2010, 09:04. Показов 4518. Ответов 1 Метки нет (Все метки) Дан двумерный массив А(5,5) в виде квадратной матрицы. Составьте программу, обнуляющую главную диагональ матрицы, если в ней найдется хоть один отрицательный элемент. Значения элементов массива задайте самостоятельно, используя процедуру ввода данных с клавиатуры. Для ввода данных и обработки массива используйте оператор цикла FOR. Выведите на экран исходную и преобразованную матрицу. Зарание спасибо! 0

	02.03.2010, 09:17

Обнулить главную диагональ матрицы

Решение