Bài 9. Làm việc với dãy số

Đú Toét

Viết chương trình nhập 10 số nguyên từ bàn phím in ra màn hình

Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 10:18

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

for i:=1 to 10 do 

  write(a[i]:4);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Nguyễn Thành Đạt
Xem chi tiết
Nguyenthanh
Xem chi tiết
Huỳnh Trúc Ly
Xem chi tiết
Huyền Trần
Xem chi tiết
Tali
Xem chi tiết
Nguyễn minh quân
Xem chi tiết
Thư ĐT
Xem chi tiết
Uchiha Obito
Xem chi tiết
vy tường
Xem chi tiết