Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Uyển Đình

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

Nguyễn Trung Hiếu
8 tháng 5 2019 lúc 19:39

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

Nguyễn Trung Hiếu
8 tháng 5 2019 lúc 19:51

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


Các câu hỏi tương tự
vy tường
Xem chi tiết
Thư ĐT
Xem chi tiết
Huyền Trần
Xem chi tiết
Nguyễn Mỹ
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
MinhAnh Vũ
Xem chi tiết
Đặng Nguyễn Hoài Băng
Xem chi tiết
Nguyễn Như Ngọc
Xem chi tiết
Hiền Nguyễn
Xem chi tiết
Phương Linh
Xem chi tiết