Мына есепті көріп беріңіздерші өтініш!!!

Question

Квадрат матрицаның бас диагональдан төмен орналасқан элементтерін нөлге айналдыратын программа құру қажет

Answer 1

Program esep;
var A:array [1..5,1..5] of integer;
i:integer;

Begin
for i:=1 to 5 do
for j:=1 to 5 do
read(A[i,j]);
for i:=1 to 5 do
for j:=1 to 5 do
if  i>j  then  A[i,j]=0;  write (A[i,j]); end.