Bài 2: Các thành phần của ngôn ngữ lập trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
0o0 Nhok kawaii 0o0

Viết ct nhập vào 1 mảng, rồi xóa các phần tử trong mảng để mảng còn lại là 1 day tăng

Phan Tiến Đạt
25 tháng 3 2020 lúc 9:32

uses crt;
var n,ss,i:integer;
a: array [1..100] of integer;
begin
clrscr;
write('So cac phan tu: ');readln(n);
for i:= 1 to n do
begin
write('Phan tu thu ',i,': ');
readln(a[i]);
end;
ss:= a[1];
for i:= 1 to n do
if a[i] >= ss then
begin
write(a[i],' ');
ss:= a[i];
end;
readln
end.

Khách vãng lai đã xóa
híp
24 tháng 3 2020 lúc 17:41

program msnbn;
var i,d,n: integer;
a: array[0..32001] of integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]<a[i-1] then a[i]:=-32001;
for i:=1 to n do
begin
if a[i]<>-32001 then write(a[i],' ');
if a[i]>a[i+1] then break;
end;
readln;
readln
end.

Khách vãng lai đã xóa
0o0 Nhok kawaii 0o0
24 tháng 3 2020 lúc 18:31

test

Nhập n=5

Các phần tử:5 6 1 4 8

In ra:5 6 8

Khách vãng lai đã xóa

Các câu hỏi tương tự
0o0 Nhok kawaii 0o0
Xem chi tiết
Không Tên
Xem chi tiết
0o0 Nhok kawaii 0o0
Xem chi tiết
Hứa  Mạnh Trường
Xem chi tiết
Quang Nguyen
Xem chi tiết
Ly Phạm
Xem chi tiết
Shino Asada
Xem chi tiết
Information Technology S...
Xem chi tiết
Kim Ngọc
Xem chi tiết