Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  qweert
Language: PASCAL
Code:
Program E8 (input,output);
var
mat: array[1..10,1..10,1..10] of integer;
i,j,k: Integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
for k:=1 to 10 do
mat[i,j,k]:=i+j+k-3;
for i:=1 to 10 do
write(' ',mat[i,i,i]);
writeln()
end.
          
Comments: