viết chương trình in ra màn hinh các phần tử khác nhau có trong dãy n số nhập vào từ bàn phím

sriranda001

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 31 xem

1 trả lời

Thích Trả lời

nhungzoiheo

program khac_nhau;

uses crt;

var A:array[1..1000] of integer;

n,i,j,tg:integer;

begin

clrscr;

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(A[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if A[i]>A[j] then

begin

tg:=A[i];

A[i]:=A[j];

A[j]:=tg;

end;

write('Cac gia tri khac nhau la: ');

for i:=1 to n do

if A[i]<>A[i+1] then write(A[i],' ');

readln;

end.

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

ducttnq

Tính và in ra tổng các số lẻ (dương)
Program Tinh_tong_so_le;
Uses CRT;
Var i,n,S:integer;
sl:boolean;
Begin
Clrscr;
Write('Nhap so n:');Readln(n);
sl:=True;
For i:=1 to n do
Begin
If sl=True then S:=S+i;
sl:= not True;
End;
Writeln('Tong cua n so le la:', S);
Readln;
End

chúc bạn học tốt ⇒ điểm cao nhé ∛ !!!

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

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

Làm giúp em bài 2 và 3 với ạ, em đang gấp lắm lắm ạ >•<

f(x)= $sin^{6}x+cos^6x$ g(x) $3six^{2}x.cos^2x$ tính f'(x)+g'(x)

Viết văn: Phân tích bài thơ Sang Thu của Hữu Thỉnh.

Vẽ đậu mầm NL: Ai muốn nghe tui hát thì ném cái id phây bút ra đây :)

cho hàm số y= $\dfrac{cos2x}{1-sinx}$ => y'( $\dfrac{\pi}{6}$ )=?

cho hàm số y=cos3x.sin2x.y'( $\dfrac{\pi}{3}$ ) =?

Mọi ng giúp m với ạ em vote mng 5*và câu tlhn ạ

hàm số y= $tan^{2}\dfrac{x}{2} $ có đạo hàm

Vẽ bé mèo cuteee này Gửi đến bạn trưởng nhóm top 1 này :)) (tại k rõ tên nên KHÔNG DÁM gọi lung tung) Nghĩ theo cách nghĩ của ng bt thôi bn Bản thân mình đây có ông anh lớp 11 Nhưng khi trả lời 1 phương trình hóa học mà a/c ấy đặt ra là bao nhiêu người nói tôi mạng miếc rồi này nọ Acc cũ của tôi cũng 2 người sử dụng chứ đấy , nhưng mà sao ? Mod vẫn xóa câu tl của tôi mặc dù k tìm ra đc link sao chép Tôi có đăng lên cả trên face hoidap nhưng nhận đc j ? Chả được j nhé Tối trả lời câu đấy thôi là người ta bảo tôi vượt cấp à , tôi bảo tôi có anh, chúng nó còn quay ra nói "đéo tin" Hãy nghĩ theo cách người bt nghĩ đi !! Mong mod k xóa

Cho m gam hỗn hợp Zn và FeO tác dụng với dung dịch H2SO4 loãng, dư tạo 0,2 mol khí. Cũng m gam hỗn hợp trên nếu tàn hết trong dung dịch H2SO4 đặc nóng thì tạo 0,3 mol khí duy nhất. Giá trị m là? Giúp mình với nha! Mình cảm ơn

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