Question

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

Answer 1

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.

Answer 2

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.

Answer 3

test

Nhập n=5

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

In ra:5 6 8