Viết Chương Trình Pascal Chèn Phần Tử X Vào Mảng Tăng Sao Cho ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

heomois
Chưa có nhóm

Trả lời
93
Điểm
3318
Cảm ơn
45

Tin Học
Lớp 9
10 điểm
heomois - 21:24:39 06/08/2022

viết chương trình pascal chèn phần tử x vào mảng tăng sao cho mảng vẫn tăng làm bằng chương trình con ạ giúp mik vs

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

heomois rất mong câu trả lời từ bạn. Viết trả lời

TRẢ LỜI

truong00025
Gia đình hạnh phúc

Trả lời
617
Điểm
32
Cảm ơn
481

truong00025

09/08/2022

Program Chen;

Uses crt;

Var i,spt, so,vitri: Integer;

A: Array[1..100] Of Integer;

Begin

Clrscr;

Writeln(' + CHEN MOT SO VAO MANG +');

Writeln('-------------------------------');

Write('-Co bao nhieu phan tu-: ');

Readln(spt);

For i:=1 To spt Do

Begin

Write('-Phan tu A[',i,']= '); Readln(a[i]);

End;

Writeln; Writeln('--MANG TRUOC KHI CHEN--');

For i:=1 To spt Do Write(a[i]: 6); Writeln;

Write('-Can che so: ');

Readln(so); Write('-Vao vi tri: ');

Readln(vitri);

For i:=spt+1 Downto Vitri+1 Do Writeln;

a[i]:=a[i-1]; a[vitri]:=so; spt:=spt+ 1;

Writeln('MANG SAU KHI CHEN');

Readln;

For i:=1 To spt Do Write(a[i]: 6);

End.

truong00025

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar1starstarstarstarstar1 voteGửiHủy

Cảm ơn
Báo vi phạm

- heomois
- Chưa có nhóm
- Trả lời
  93
- Điểm
  3318
- Cảm ơn
  45
Bn ơi cái này nóa giống vs câu trả lời mà mik đã báo cáo vi phạm á bn
- heomois
- Chưa có nhóm
- Trả lời
  93
- Điểm
  3318
- Cảm ơn
  45
Bn muốn mik báo cáo ko ạ vừa copy mà vừa ko đọc kĩ đề nữa
- heomois
- Chưa có nhóm
- Trả lời
  93
- Điểm
  3318
- Cảm ơn
  45
:))
- truong00025
- Gia đình hạnh phúc
- Trả lời
  617
- Điểm
  32
- Cảm ơn
  481
đừng mà
- truong00025
- Gia đình hạnh phúc
- Trả lời
  617
- Điểm
  32
- Cảm ơn
  481
mk hứa sẽ k bao giờ như vậy nx ạ