63) Viết chương trình nhập vào số nguyên dương ????. Nhập tiếp dãy gồm ???? số nguyên. Giả sử các phần
tử trong dãy được đánh số thứ tự bắt đầu từ 1 đến ???? theo thứ tự nhập vào. Hãy tìm thứ tự của phần
tử lớn nhất dãy. Nếu có nhiều phần tử cùng lớn nhất dãy thì chỉ ra thứ tự nhỏ nhất.
64) Viết chương trình nhập vào số nguyên dương ????. Nhập tiếp dãy gồm ???? số nguyên. Giả sử các phần
tử trong dãy được đánh số thứ tự bắt đầu từ 1 đến ???? theo thứ tự nhập vào. Hãy tìm thứ tự của phần
tử dương nhỏ nhất dãy. Nếu có nhiều phần tử dương cùng nhỏ nhất dãy thì chỉ ra thứ tự nhỏ nhất.
Nếu dãy không chứa phần tử dương thì in ra −1.
65) Viết chương trình nhập vào số nguyên dương ????. Nhập tiếp dãy gồm ???? số nguyên. Hãy đếm số lượng số
của dãy vừa nhập có đúng 3 chữ số.
*Lập trình pascal. Dùng longint, while, for, … Ko dùng boolean, true-false, dấu [ ]. Thanks nhìuuu. Còn có 20 điểm à, cho hay nhất lun ấy :0
program Bai65;
uses crt;
var
a: array[1..10000] of longint;
n,i,d,dem : 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
begin
d:=0;
while a[i] <> 0 do
begin
a[i]:=a[i] div 10;
d:=d+1;
end;
If d = 3 then dem:=dem+1;
end;
write(‘So luong so co 3 chu so: ‘,dem);
readln;
end.