Viết chương trình nhập vào một dãy gồm n số nguyên ( n nhỏ hơn hoặc bằng 250,a[i]nhỏ hơn hoặc bằng 500)
a)In ra màn hình dãy vừa nhập
b)Đếm số lương số nguyên tố trong dãy
c)Tìm giá trị nhỏ nhất của dãy
d)Sắp xếp dãy đó theo chiều ko giảm
Viết chương trình nhập vào một dãy gồm n số nguyên ( n nhỏ hơn hoặc bằng 250,a[i]nhỏ hơn hoặc bằng 500)
a)In ra màn hình dãy vừa nhập
b)Đếm số lương số nguyên tố trong dãy
c)Tìm giá trị nhỏ nhất của dãy
d)Sắp xếp dãy đó theo chiều ko giảm
program mang;
uses crt;
var A:array [1..500] of integer;
n,i,T: integer;
Begin
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
end;
write(‘Day so vua nhap la: ‘);
for i:=1 to n do write(A[i],’ ‘);
writeln;
for i:=1 to n do
if A[i]<0 then T:=T+A[i]
else write(‘Khong co so am’);
write(‘T = ‘,T);
readln