viết câu lệnh nhập dữ liệu từ bàn phím cho dãy số A gồm N phần tử? 15/08/2021 Bởi Adalyn viết câu lệnh nhập dữ liệu từ bàn phím cho dãy số A gồm N phần tử?
var A:array[1..100] of integer; i,N:integer; begin clrscr; write(‘Nhap so phan tu N: ‘); readln(N); for i:=1 to N do begin writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]); end; Học tốt! Bình luận
Câu lệnh đấy
write(‘a[‘,i,’]: ‘);readln(a[i]);
Còn a[i] là mảng đó
var A:array[1..100] of integer;
i,N:integer;
begin clrscr;
write(‘Nhap so phan tu N: ‘); readln(N);
for i:=1 to N do
begin
writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
Học tốt!