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ử?

2 câu trả lời

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!

Câu lệnh đấy

write('a[',i,']: ');readln(a[i]);
Còn a[i] là mảng đó 

Câu hỏi trong lớp Xem thêm