Lựa chọn cách nhập dũ liệu.truy xuất va tính mảng 2 chiều

[locxoaytocvay]

Đề:Cho 1 mảng 2 chiều,tìm các số nguyên tố có trong mảng, tính tổng các số nguyên tố đó.Thay vi nhap du lieu tu ban phim ban se lay du lieu tu file
VD file chua noi dung
3,4 (so dong, so cot)
2 5 7 9
4 6 78 83
1 3 6 13
doc du lieu tu file sang mang 2 chieu de co the lua chon 2 cach nhap lieu

[seven_emonli]

program bai1;
const
inp='nguyento.inp';
out='nguyento.out';
var
a:array[1..100,1..100] of integer;
f,g:text;
s:longint;
n,m,i,j:integer;
procedure nhap;
begin
assign(f,inp);
readln(f,n,m);
for i:=1 to n do
begin
for j:=1 to m do
read(f,a[i,j]);
readln(f);
end;
close(f);
end;
function kt(a:integer):boolean;
var
h:integer;
begin
for h:=2 to a-1 do
if a mod h=0 then
begin
kt:=false;
exit;
end;
kt:=true;
end;
procedure xuat;
begin
s:=0;
for i:=1 to n do
for j:=1 to m do
if kt(a[i,j]) then
s:=s+a[i,j];
assign(g,out);
rewrite(g);
writeln(g,s);
close(g);
end;
begin
nhap;
xuat;
end.

[=========> Bổ sung bài viết <=========]

tớ cũng dang nghien cuu pascal có gì giúp đỡ thêm nha

[locxoaytocvay]

sạc,mình làm C++ ma bạn,pascal mình có hiểu gì đâu.huhu

[kimduquan]

thì dùng mấy cái hàm thao tác trên file mà làm chứ có khó gì đâu.còn 2 cách nhập xuất là nhập xuất bình thường và nhập xuất trên file(tập tin ) thui.