Заполнить матрицу на паскале

Question

Ольга Барышникова · Accepted Answer

var i,j:integer; a:array[0..9,0..9]of integer; 
begin 
for i:=0 to 9 do 
 begin for j:=0 to i do a[i,j]:=i-j; for j:=i+1 to 9 do a[i,j]:=j-i; end; 
for i:=0 to 9 do begin for j:=0 to 9 do write(a[i,j]:2); writeln end; 
writeln('Для выхода нажмите Enter'); readln 
end.

Артем · Answer

Воттакпонятнейбудет: var i,j:integer;a:array[0..9,0..9]of integer;begin for i:=0 to 9 do begin for j:=0 to i do a[i,j]:=i-j;for j:=i+1 to 9 do a[i,j]:=j-i;end;for i:=0 to 9 do begin for j:=0 to 9 do write(a[i,j]:2);writeln end;writeln('Для выхода нажмите Enter');readln;end.