Bt1 : Lập CT nhập vào ma trận a[n x n] các ptử là số nguyên.Thực hiện các công việc sau :
a)tính tổng các phần tử là các số nguyên tố trong A.Cho biết các số nguyên tố có mặt trong A.
b)Tính TB cộng của các phần tử chia hết cho 3.
c)Cho biết gtrị lớn nhất cùng các vị trí đạt được giá trị này trong A.
d)XD 1 ma trận b [n x n]từ A sao cho các phần tử của B được xác định :Nếu A[i,j] chẵn thì B[i,j]= 1,ngược lại B[i,j]= 0.
e)cho biết số các phần tử khác nhau trong ma trận A.
program mang2chieu;
var a,b:array[1..20] of integer;
n,snt,dnt,sd,dd,max,dongcot:integer;
function nguyento(p:integer):boolean;
var i:integer;ok:boolean;
begin i:=2;
ok:=true;
repeat
if p mod i=0 then ok:=false
else i:=i+1;
until not(ok)or(i>p/2);
if p=2 then ok:=true;
end;
procedure xulynguyento;
var i,j:integer;
snt:=0;dnt:=0;
for i:=1 to n do
for j:=1 to n do
if nguyento(a[i,j]) then
begin snt:=snd+a[i,j];
dnt:=dnt+1;
end;
writeln('tong cac so nguyen to trong A la ',snt);
writeln(' so nguyen to co mat trong A la ',dnt);
end;
procedure tong duong 3;
var i,j:integer;
begin
sd:=0;dd:=0;
for i:=1 to n do
for j:=1 to n do
if (a[i,j]>0) and (a[i,j] mod 3=0 then
begin
sd:=sd+a[i,j];
dd:=dd+1;
end;
if dd>0 then
tbd:=sd,dd;
else tbd:=0
writeln('tb cac so duong chia het cho 3 la:',tbd);
end;
procedure xulymax;
var i,j:integer;
begin
max:=a[i,j],dong:=0,cot:=0;
for i:=1 to n do
for j:=1 to n do
if max<a[i,j] then max:=a[i,j];
writeln('gia tri max trong A la ',max);
for i:=1 to n do
for j:=1 to n do
if a[i,j]=max then
writeln(i,j);
procedure taoB;
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
if (a[i,j] mod 2=0 then b[i,j]:=1
else b[i,j]:=0;
writeln('gia tri ma tran b la ');
for i:=1 to n do
begin
for j:=1 to n do
writeln(b[i,j];
writeln;
end;
end;
procedure sophantukhacnhau;
var i,j:integer;
c:set of integer;
begin
c:=[],d:=0;
for i:=1 to n do
for j:=1 to n do
if not(a[i,j]in c) then
begin
c:=c+[a[i,j]];
d:=d+1;
end;
writeln('so phan tu khac nhau cua A la ',d);
end;
begin
readln(n);
input;
xulynguyento;
tongduong3;
xulymax;
taoB;
sophantukhacnhau;
end.
