Bài 7. Câu lênh lặp

nguynthithanhhoa

Viết chương trình sử dụng lệnh lặp while...do nhập các số thực từ 1 đến 100 từ bàn phím

Minh Lệ
7 tháng 6 2020 lúc 20:34

Program HOC24;

var i: integer;

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

begin

i:=0;

while i<100 do

begin

i:=i+1;

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Thư Uyên
Xem chi tiết
huy hoàng
Xem chi tiết
Minh Đông
Xem chi tiết
thanh mai
Xem chi tiết
Trịnh Nam
Xem chi tiết
Công danh
Xem chi tiết
Bảo Trâm
Xem chi tiết
Bảo Trâm
Xem chi tiết
Nguyễn Gia Huy
Xem chi tiết