Viết chương trình nhập vào 1 dãy số nguyên

-
Home/ Môn học/Tin học/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ă


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 then

begin

tam:=a;

a:=a;

a:=tam;

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 then begin t:=a; a:=a; a:=t; end; write(‘Day so tang dan: ‘); for i:=1 to n do write(a,’ ‘); readln;end.


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