cho ma trận n*n
in ra các số nguyên tố trong ma trận
sắp xếp ma trận theo thứ tự giảm dần
tính tổng các gt nhỏ nhất của từng dòng
tìm các điểm cực tiểu và vt của chúng
cho ma trận n*n
in ra các số nguyên tố trong ma trận
sắp xếp ma trận theo thứ tự giảm dần
tính tổng các gt nhỏ nhất của từng dòng
tìm các điểm cực tiểu và vt của chúng
uses crt;
var n,i,j,t,tong:longint; a:array[1..100000000]of longint; d:text;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while (a>1)and(a mod i<>0) do inc(i);
nt:=i=a;
end;
begin
clrscr;
assign(d,’input.pas’);reset(d);
readln(d,n);
for i:=1 to n do
begin
for j:=1 to n do read(d,a[n*(i-1)+j]);
readln(d);
end;
close(d);
assign(d,’output.pas’);rewrite(d);
writeln(d,’Cac so nguyen to:’);
for i:=1 to n*n do if nt(a[i]) then writeln(d,a[i]);
writeln(d,’Xap sep theo thu tu tang dan:’);
for i:=1 to n*n do
for j:=1 to i do
if a[i]<a[j] then
begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
for i:=1 to n*n do writeln(d,a[i]);
for i:=1 to n*n do if i mod n=1 then inc(tong,a[i]);
writeln(d,’Tong cua cac gia tri nho nhat tren cac dong: ‘,tong);
writeln(d,’Vi tri diem cuc tieu cua mang: 1′);
close(d);
readln
end.