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

Формулировка задачи:

Дана квадратная матрица порядка n. Обнулить элементы матрицы,лежащие одновременно выше главной и побочной диагоналей. Пожалуйста, СРОЧНО!!!


textual

Код к задаче: «Обнулить элементы матрицы, лежащие одновременно выше главной и побочной диагоналей - Pascal - Pascal ABC»

const n=11;
var a:array[1..n,1..n] of byte;
    i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1to 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;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.818 из 5

Источник
Похожие ответы