Question

viết chương trình thực hiện yêu cầu sau khai báo biến mảng tên là B gồm tối đa 25 phần tử, các phần tử có kiểu là số nguyên,sau đó nhập dữ liệu từ bàn phím vào mảng ?

Answer 1

uses crt;

var b:array[1..25]of integer;

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('B[',i,']='); readln(b[i]);

end;

readln;

end.