MN

sử dụng free pascal viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy N số tự nhiên và viết ra màn hình? độ dài của dãy cũng được nhập từ bàn phím

NT
5 tháng 5 2021 lúc 23:26

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
NH
Xem chi tiết
NH
Xem chi tiết
LD
Xem chi tiết
PA
Xem chi tiết
NH
Xem chi tiết
NH
Xem chi tiết
YN
Xem chi tiết
LN
Xem chi tiết
H24
Xem chi tiết