Question

viết chương trình nhập từ bàn phím dãy số nguyên N (N<=100). in ra màn hình số vừa nhập

Answer 1

Chưntg trình:
repeat

write('So phan tu cua day A (N<=100), N= *);

readln(N);

until (N>0) and

(N<=100);

for i:= 1 to N do

begin

{kiem tra cac phan tu cua day khi nhap vao}
Trong trường hợp số phần tử nhập vào và giá trị các phần tử của dãy A không thỏa mãn điều kiện thì chương trình sẽ có thông báo mời nhập lại. Chẳng hạn, trong các trường hợp sau đây:
A[1] = 12
A [ 2] = 2000 thì chương trình đưa ra yêu cầu Moi nhap lai A[2]= 800 A[3 = 17
A [ 4] = -1500 thì chương trình đưa ra yêu cầu Moi nhap lai A[4]= -200 A[5] =31 A [ 6 = 5 A[7 = 350
Kết quả chương trình đưa ra thông báo (Hình 64):
So luong so chan: 4
So Luong so le: 3
So luong so nguyen to: 3

Answer 2

Program HOC24;

var ni,: integer;

a: array[1.32000] of integer.;

Begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

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

end;

write('Day so vua nhap: ');

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

readln

end.