Viết chương trình Pascal nhập một dãy số có n phần tử với n được nhập từ bàn phím. Thực hiện các công việc sau : a) Tìm số lớn nhất có trong dãy đó b) Tìm số nhỏ nhất có trong dãy đó c) In ra các số chia hết cho 3 d) In ra các số nguyên tố có trong dãy. còn 1 câu muốn đặt nx >

ngocyen080291

2 năm trước

Viết chương trình Pascal nhập một dãy số có n phần tử với n được nhập từ bàn phím. Thực hiện các công việc sau : a) Tìm số lớn nhất có trong dãy đó b) Tìm số nhỏ nhất có trong dãy đó c) In ra các số chia hết cho 3 d) In ra các số nguyên tố có trong dãy. còn 1 câu muốn đặt nx ><

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

thingoclxt1910

program baitap;
uses crt;
var a : array[1..100] of integer;
i ,n ,max,min ,s : integer;
function snt(x : integer) : boolean;
var i,d : integer;
begin d:=0;
for i:=1 to x do if x mod i = 0 then d:=d+1;
if d = 2 then snt:=true else snt:=false;
end;
begin clrscr;
write('Nhap so n :'); readln(n);
for i:=1 to n do begin
write('Nhap phan tu thu ',i,' la :');
readln(a[i]); end;
max:=a[1];
for i:=2 to n do if max < a[i] then max:=a[i];
min:=a[1];
for i:=2 to n do if min > a[i] then min:=a[i];
writeln('Gia tri lon nhat la :', max);
Writeln('Gia tri nho nhat la:', min);
writeln('Cac phan tu chia het cho 3 la:');
for i:=1 to n do
If a[i] mod 3 = 0 then write(a[i]:3);
writeln;
writeln('Cac so nguyen to co trong day la :');
for i:=1 to n do if snt(a[i]) = true then write(a[i]:3);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

phanhien

Program Hotboy;

Uses crt;

Var a:array[1..100] of integer;

Max,min,nt,j:longint;

i,n : byte;

Function snt(m : integer) : boolean;

begin

nt:=0;

For i:=1 to m do

if m mod i = 0 then inc(nt);

if (nt= 2 ) then snt:=true else snt:=false;

end;

Begin

Clrscr;

Write('nhap n ');

Readln(n);

For i:=1 to n do

Begin

Write('A[',i,']');

Readln(A[i]);

End;

Max:=A[1];

Min:= A[1];

For i:= 2 to n do

If (A[i] > max) then Max:= A[i];

If (A[i] < min ) then Min :=A[i];

Writeln('so nho nhat la',min,' so lon nhat la',max);

For i:=1 to n do

If (A[i] mod 3=0) then writeln('so chia het cho 3 la',A[i]:3:2);

For i:=1 to n do

If snt(A[i])= true then write(a[i],' ');

Readln

End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Rút gọn biểu thức có chứa căn sau : √(4+√15)

Y=2x^2-x^4 nghịch biến (-a;b) và (c;+00) . Tính S=2a+b-c ?

Hoỗn hợp X gồm Al, Ba, Na (trong đó số mol Al bằng 2 lần tổng số mol Na và Ba). Cho m gam X vào nước dư, sau phản ứng hoàn toàn thu được 3,584 lít khí H2. Mặt khác, hòa tan hoàn toàn m gam X bằng dd NaOH, thu được 0,22 mol H2. Tính m?

y=căn(x^2-4x+3) nghịch biến khoảng (-00;a). Tìm a?

Làm cho mk câu d bài 4 thôi nhá. Mk đag cần gấp

Mình có bấm máy tính ra 10 nhưng chưa biết làm ạ TvT

b1.tìm x a. (2x+3)^3 - 4.(x-1)^2=0 b.27x^2.(x+1)-(3x+1)^3= -8 c.(x+1).(x^2-x+1)-x.(x^2-2)=4 d.(2x+5).(4x^2-10x+25)-(2x+1)^2=52 b2.chứng minh các biểu thức sau luôn dương a.x^2+2x+7 b.x^2-4x+10 c.x^2+2xy+y+8 d.x^2-x+1 các bạn giải nhanh giúp mik nha , mik cần gấp, mik cảm ơn các bạn chú ý nhé , bài này mik ko spam của ai hết nha , bài này cô mik giao , mik ko bít làm , mik nhờ các cậu giải hộ , mik cảm ơn mik có dùng ứng dụng giải bài tập khác , các bạn có thấy bài nào giống bài của mik , thì có đó bài của mik và cái nick đó cũng là của mik luôn

Tìm m y=(mx+4)/(x+m) nghịch biến (-00;1)?

1. yesterday's test was not short as today's. today's test is 2. money is not as important as health. health is 3. no- one in her family is fatter than him. he is 4. he is hard-working than his friend. his friend 5. travelling by airplane is not as dangerous as. travelling by car 6. the nile is the longest river in the world. no- river

Tìm m y=(x+1)/(x+m) đồng biến (2;+00) ?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến