Viết chương trình Pascal
1 .+nhập 1 mảng số nguyên gồm n phần tử với n là số nguyên dương nhập từ bàn phím.
+Hình ra màn hình các phần tử ở vị trí lẽ và tính tổng các phần tử này
2.+ nhập vào một một số nguyên dương x với X là số nhập từ bàn phím.
+ in ra màn hình phân tử là ước của X và cho biết có bao nhiêu phần tử là ước của X
Ai bt giúp mk vs
Bài 1:
uses crt;
var a:array[1..1000000] of longint;
n, i:longint;
begin
clrscr;
write﴾'Nhap vao so phan tu co trong day: '﴿; readln﴾n﴿;
for i:=1 to n do
begin
write﴾'Nhap vao phan tu thu ',i,' = '﴿; readln﴾A[i]﴿;
end;
write('Cac phan tu o vi tri le la: ');
for i:=1 to n do
if i mod 2<>0 then begin write(a[i],','); s:=s+a[i]; end;
write('Tong cac phan tu o vi tri le la: ',s);
Bài 2:
uses crt;
var a:array[1..1000000] of longint;
n, i,x:longint;
begin
clrscr;
write('Nhap so nguyen duong X: '); readln(x);
write﴾'Nhap vao so phan tu co trong day: '﴿; readln﴾n﴿;
for i:=1 to n do
begin
write﴾'Nhap vao phan tu thu ',i,' = '﴿; readln﴾A[i]﴿;
end;
write('Cac phan tu la uoc cua X la: ');
for i:=1 to n do
if x mod a[i]=0 then begin write(a[i],','); d:=d+1; end;
write('Co ',d,' phan tu la uoc cua X');