uses crt;
var a:array[1..100]of integer;
i,n,j,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
Viết chương trình nhập biến mảng M gồm 100 phần tử thuộc kiểu số nguyên +nhập các phần tử và in ra màn hình + tìm và in ra màn hình giá trị lớn nhất trong dãy số vừa nhập +tìm và in ra màn hình giá trị nhỏ nhất trong dãy số vừa nhập
Viết chương trình nhập dãy số gồm 100 số nguyên và in các số đó ra màn hình ( các số trong dãy số in ra trên một hàng, mỗi số cách nhau 2 kí tự
Viết chương trình nhập vào bàn phím một dãy số nguyên gồm n phần tử a.Tính tổng các phương trình có giá trị lẻ b.In ra các số chính phương trong dãy c.In ra các số nguyên tố trong dãy d.Sắp xếp dãy theo thứ tự tăng dần e.Kiểm tra dãy số trên có lập trình cấp số cộng hay không?
1. Viết chương trình nhập vào một số nguyên dương n và in ra màn hình dãy số tự nhiên từ 1 tới n. 2. Viết chương trình nhập vào một số nguyên n và in ra màn hình các số nguyên chẵn trong khoảng từ 1 tới n.
Viết chương trình nhập vào 1 dãy số thực gồm K phần tử. In ra màn hình phần tử nhỏ nhất trong dãy số đó
Viết chương trình nhập vào 1 dãy số gồm n phân tử.Hãy in dãy số đó ra màn hình
a, Viết chương trình pascal nhập vào một dãy số nguyên n từ bàn phím b, in dãy vừa nhập ra màn hình. c, đếm xem bao nhiêu số dương. d, in kết quả số dương ra màn hình.
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện
+ dòng 1 xuất ra màn hình dãy số vừa nhập
+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?
+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?
+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?
+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!
