Bài 12: Kiểu xâu

Trần Văn Hiện
Viết chương trình tạo mảng ngẫu nhiên A) Xuất nửa đầu của mảng B) Xuất nửa cuối của mảng
Nguyễn Lê Phước Thịnh
13 tháng 3 2021 lúc 19:48

uses crt;

var a:array[1..100]of integer;

n,i:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Nua dau cua mang la: ');

for i:=1 to n div 2 do 

  write(a[i]:4);

writeln;

writeln('Nua cuoi cua mang la: ');

for i:=(n div 2)+1 to n do 

  write(a[i]:4);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Trần Văn Hiện
Xem chi tiết
pro hỏi baififififififi
Xem chi tiết
Thanh Nhi Phạm
Xem chi tiết
hien nguyen
Xem chi tiết
hien nguyen
Xem chi tiết
Võ Thị Thái Ngọc
Xem chi tiết
Hạ Tâm
Xem chi tiết
tạ đình tuân
Xem chi tiết
Ưu Vô
Xem chi tiết