Làm ơn giúp em pascal lớp 11?

Question

Nhập vào 2 mảng 2 chiều A,B gồm m hàng và n cột . Đưa ra màn hình mảng C gồm các phần tử 
thỏa mãn đk: C[i,j]= A[i,j] + B[i.j]
Đưa ra các phần tử là các số nguyên tố của mảng C
anh, chị nào làm đc thì giúp em nha! Thứ tư này em cần rồi, thanks

? · Accepted Answer

Ch­ương trình của em đây:
Program Mang;
Var A, B, C : Array[1..100,1..100] of Integer;
i, j, m, n : Byte;
Begin
Write('Nhap so dong va cot cua mang : '); Readln(m,n);
Writeln('NHAP CAC PHAN TU CHO MANG A :');
For i := 1 to m do
For j := 1 to n do
Begin
Write('A[',i,',',j,']= '); Readln(A[i,j]);
End;
Writeln('NHAP CAC PHAN TU CHO MANG B :');
For i := 1 to m do
For j := 1 to n do
Begin
Write('B[',i,',',j,']= '); Readln(B[i,j]);
C[i,j] := A[i,j] + B[i,j];
End;
Writeln('CAC PHAN TU CUA MANG C LA :');
For i := 1 to m do
Begin
For j := 1 to n do Write(C[i,j]:6);
Writeln;
End;
Readln;
End.
-----------
Nhớ test thử xem nhé! Chúc em học thật tốt Pascal.

Ẩn danh · Answer

Em ÄÃ£ há»c chÆ°Æ¡ng trÃ¬nh con chÆ°a?

Làm ơn giúp em pascal lớp 11?

2 Câu trả lời