Viết chương trình nhập số n từ bàn phím và in ra n số hạng đầu tiên của dãy số Pell

Vận dụng

Câu hỏi 1. Viết chương trình nhập số n từ bàn phím và in ra n số hạng đầu tiên của dãy số Pell


uses crt;
Var a:array[1..100000] of longint;
i,n,min:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if a[i]<min then min:=a[i];
write('Gia tri nho nhat trong day so vua nhap la: ',min);
readln
end.


Bình luận

Giải bài tập những môn khác