Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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.


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