Viết chương trình nhập vào 1 dãy số nguyên
1.Viết chương trình nhập vào 1 dãy số nguyên, tính tổng các số nguyên tố trong mảng. 2.Nhập vào một dãy số có n phần tử, sắp xếp dãy đó theo thứ tự tă
1.Viết chương trình nhập vào 1 dãy số nguyên, tính tổng các số nguyên tố trong mảng.2.Nhập vào một dãy số có n phần tử, sắp xếp dãy đó theo thứ tự tăng dần.
Bạn đang xem: Viết chương trình nhập vào 1 dãy số nguyên
var n,i:longint;
A:array<1..100> og longint;
function nt(n:longint):boolean;
var i:longint;
begin
nt:=false;
if na
begin
tam:=a;
a:=a
a
end;
for i:=1 to n do write(a,’ ‘);
readln
end.
giahan
0
Reply
Câu 1:
uses crt;var a:array<1..10000> of integer; n,i,s,j:integer; check:boolean;begin clrscr; write(‘Nhap so luong phan tu: ‘); readln(n); for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(a); end; if a if a=2 then inc(s,a); for i:=1 to n do begin j:=2; while (a mod j0) and (j if j>sqrt(a) then check:=true else check:=false; if check then inc(s,a); end; write(‘Tong cac so nguyen to: ‘,s); readln;end.
Xem thêm: Kích Thước Chuẩn Ảnh Bìa Fanpage : Kích Cỡ Chuẩn Nhất 2021, Kích Thước Ảnh Bìa Facebook Chuẩn 2021
Câu 2:
uses crt;var a:array<1..10000> of integer; n,i,j,t:integer;begin clrscr; write(‘Nhap so luong phan tu: ‘); readln(n); for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(a); end; for i:=1 to n-1 do for j:=i+1 to n do if a>a
Leave an answer
Name*
E-Mail*
Website
Featured image
Select file Browse
Captcha*35:5x4+1-9:3 = ? ( )
Answer*
Click here to cancel reply.
Parker
About Parker
Related questions
Previous question