Tin học 8

[linhanhtt2612]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình thực hiện các công việc sau:
- Nhập và in ra dãy số nguyên
-Nhập số k bất kỳ,chèn số k vào sau vị trí thứ hai
-Sắp xếp dãy số theo chiều tăng dần

 

[ka1412]

uses crt;
var a:array[1..100] of integer;
n,i,k:integer;
begin
    write('Nhap n:');readln(n);
    for i:=1 to n do
    begin   
        write('a[',i,']:');readln(a[i]);
    end;
    writeln('Mang ban dau:');
    for i:=1 to n do write(a[i]:4);
    writeln;
    write('Nhap k:');readln(k);
    for i:=n downto(3) do
    a[i+1]:=a[i];
    inc(n);
    a[3]:=k;
    writeln('Mang sau khi chen ',k,':');
    for i:=1 to n do write(a[i]:4);
readln
end.