Question

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

Answer 1

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);

Answer 2

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');