Cho mảng A gồm 30 phần tử nhập giá trị cho từng phần tử trong mảng viết chương trình Pascal

Question

chauhoangmy · Answer

uses crt;

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

i,n: integer;

begin

clrscr;

write (‘nhap so luong phan tu: ‘); readln (n);

for i:=1 to n do

begin

write (‘nhap a[‘,i,’]: ‘); readln (a[i]);

end;

write (‘cac so vua nhap: ‘);

for i:=1 to n do write (a[i],’ ‘);

readln;

end.

lanminhngoc · Answer

program nhap_gia_tri;

uses crt;

var A:array[1..30] of integer;

n,i:byte;

begin

clrscr;

for i:=1 to n do

begin

write(‘A[‘,i,’]= ‘); readln(A[i]);

end;

readln;

end.

0 bình luận về “Cho mảng A gồm 30 phần tử nhập giá trị cho từng phần tử trong mảng viết chương trình Pascal”