Составить программу создания двумерного квадратного массива A[1..N, 1..N] таким образом, чтобы элементы главной диагонали были равны нулю. Остальные элементы берутся любые, в пределах от 1 до 50

Категория: Delphi/Pascal

2012-02-23 21:43:30

code: #pascal

Program p1;
const n=4;
var a:array [1..n,1..n] of integer;
    i, j:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i, j]:= +1+random (50);
for i:=1 to n do
for j:=1 to n do
if i=j then a[i,j]:=0;
for i:=1 to n do begin writeln;
for j:=1 to n do
write (a[i,j]:3);  end;
readln;
readln;
end.

Поделиться:

Sample Code

категории

Похожие статьи: