Phần mềm học tập

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phạm Việt Bách

Mọi người giúp mình câu này với ạ, mình đang cần gấp: Viết chương trình nhập vào 1 ma trận số nguyên kích thước m x m ô. Tính tổng các phần tử trên đường chéo chính.

nguyễn an phát
5 tháng 6 2021 lúc 6:53

uses crt;
var i,j,m:integer;
t:longint;
a:array[1..100,1..100]of integer;
begin
  clrscr;
  write('nhap m:');readln(m);
  for i:=1 to m do
  for j:=1 to m do
  begin
    write('a[',i,',',j,']=');readln(a[i,j]);
  end;
  clrscr;
  writeln('ma tran da nhap la:');
  for i:=1 to m do
  begin
    for j:=1 to m do
    write(a[i,j]:5);writeln;
  end;
  i:=1;j:=1;
  while i<=m do
  begin
    t:=t+a[i,j];
    inc(i);inc(j);
  end;
  writeln('tong cac phan tu nam tren duong cheo chinh la: ',t);
  readln;
end.

 


Các câu hỏi tương tự
Nguyễn Phúc
Xem chi tiết
Finn
Xem chi tiết
Linh Da
Xem chi tiết
HOÀNG ĐẠI PHÚC
Xem chi tiết
Anh Nguyen
Xem chi tiết
ytkc
Xem chi tiết
Đặng Minh Hiếu
Xem chi tiết
sery Lan
Xem chi tiết
Le Hoang Phuc
Xem chi tiết