Обнулить элементы матрицы, лежащие одновременно выше главной диагонали и выше побочной диагонали

@ALEX1223 · Регистрация: 17.09.2018

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

Дана квадратная матрица порядка M. Обнулить элементы матрицы, лежащие одновременно выше главной диагонали и выше побочной диагонали. Вывести получившуюся матрицу.

@Puporev · 19.01.2019, 19:57

Pascal

uses crt;
var a:array[1..10,1..10] of byte;
    n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('Измененная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(j>i)and(j<n-i+1) then a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end;
readln
end.

@ALEX1223 0 / 0 / 0 Регистрация: 17.09.2018 Сообщений: 59
		1
	Обнулить элементы матрицы, лежащие одновременно выше главной диагонали и выше побочной диагонали 19.01.2019, 17:24. Показов 4122. Ответов 1 Метки нет (Все метки) Дана квадратная матрица порядка M. Обнулить элементы матрицы, лежащие одновременно выше главной диагонали и выше побочной диагонали. Вывести получившуюся матрицу. 0

Опции темы

Обнулить элементы матрицы, лежащие одновременно выше главной диагонали и выше побочной диагонали

Решение