Bài 11: Kiểu mảng

NH
Viết chương trình nhập vào 100 số nguyên dương từ bàn phím. In ra màn hình các số vừa nhập.
NT
7 tháng 2 2021 lúc 20:48

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 100 do 

  begin

repeat

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

until a[i]>0;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
NL
Xem chi tiết
NT
Xem chi tiết
H24
Xem chi tiết
NN
Xem chi tiết
YN
Xem chi tiết
HT
Xem chi tiết
H24
Xem chi tiết
ON
Xem chi tiết
NL
Xem chi tiết