• Khung trình chiếu

Bài tập: In ra tổng giá trị 2 đường chéo của một ma trận 2 chiều

Các mã nguồn được viết bằng ngôn ngữ Pascal
Gửi hồi đáp
Ảnh đại diện người dùng
huynhbuutam
Nhà sáng lập
Nhà sáng lập
Các bài viết: 112
Đã gia nhập lúc: T3 31 Th8, 2021 22:04
Địa điểm: Trường THCS Châu Lăng
Tên thật: Huỳnh Bửu Tâm

Bài tập: In ra tổng giá trị 2 đường chéo của một ma trận 2 chiều

Bài viết bởi huynhbuutam »

Bài tập: Nhập vào một ma trận N x N (2 <= N <= 10) các số nguyên, in ra tổng giá trị các phần tử trên 2 đường chéo của ma trận đã nhập.
Ví dụ:

Mã: Chọn tất cả

Moi ban nhap vao so N: 3
Moi ban nhap lan luot cac so hang 1: 1 2 3
Moi ban nhap lan luot cac so hang 2: 4 5 6
Moi ban nhap lan luot cac so hang 3: 7 8 9
Tong 2 duong cheo la: 25
Mã nguồn:

Mã: Chọn tất cả

Uses Crt;
Var N, i, j, Tong : Integer;
	M : Array[1..100, 1..100] Of Integer;
Begin
	ClrScr;
	N := 0;
	While ((N < 2) Or (N > 10)) Do
		Begin
			Write('Moi ban nhap vao so N: ');
			ReadLn(N);
		End;
	For i := 1 To N Do
		Begin
			Write('Moi ban nhap lan luot cac so hang ', i, ': ');
			For j := 1 To N Do Read(M[i, j]);
			ReadLn;
		End;
	Tong := 0;
	For i := 1 To N Do
		For j := 1 To N Do
			If ((i = j) Or (i + j = N + 1)) Then Tong := Tong + M[i, j];
	Write('Tong 2 duong cheo la: ', Tong);
	ReadLn;
End.
Gửi hồi đáp
  • Similar Topics
    Các hồi đáp
    Lượt xem
    Bài viết cuối