Chắc suất Đại học top - Giữ chỗ ngay!! ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
viết chương trình pascal tính tổng các số nguyên tố trong dãy số
bạn giải hơi khó hiểu. Có thể giải theo cách lớp 8 được k ạ. Cảm ơn bạn nhiều!!!!!!!Program tong_cac_so_ng_to_trong_mang;
Uses crt ;
Const Max = 500;
Type mang = Array[1..max] of integer;
Var S,n,i:integer;
A:mang;
Function NT(n:integer):boolean;
Var i:integer;
Begin
If (n=0)Or(n=1) then NT:=False
Else
Begin
i:=2;
While (n mod i <> 0)and(i<Sqrt(n)) do i:=i+1;
If i>Sqrt(n) then NT:=True Else Nt:=False;
End;
End;
{Function NT}
Begin {Chuong trinh chinh}
Repeat
Clrscr;
Write('Ban nhap mang co bao nhieu phan tu : '); Readln(n);
Until (n<=max)And(n>0);
For i:=1 to n do
Begin Write('A[',i,']='); Readln(A); End;
S:=0;
For i:=1 to n do If NT(A) then S:=S+A;
Write('Tong cac so nguyen to trong mang = ',S);
Readln;
End.
Chúc bạn thi tốt nhé[/QUOTE