Bài 2. Làm quen với chương trình và ngôn ngữ lập trình

MINH THẢO NGUYỄN

Viết chương trình một mảng số nguyên x, gồm n phần tử và số nguyên x. Hãy in ra các phần tử trong mảng mà x là ước số lẻ

Nguyễn Diệu Linh
21 tháng 4 2019 lúc 19:52

help me!!!

Bình luận (0)
Phan Tiến Đạt
9 tháng 3 2020 lúc 15:26

program andanh;
uses crt;
var x,i,n,kt: integer;
a: array[1..100] of integer;
begin
clrscr; kt:= 0;
write('So phan tu trong mang: ');readln(n);
for i:= 1 to n do
begin
write('Phan tu thu ',i,': ');
readln(a[i]);
end;
write('Nhap so nguyen x: ');readln(x);
writeln('Cac phan tu ma ',x,' la uoc so le:');
for i:= 1 to n do
if (a[i] mod x = 0) and (x mod 2 = 1) then
begin
write(a[i],' ');
kt:= 1;
end;
if kt = 0 then write('Khong co phan tu nao co ',x,' la uoc so le');
readln
end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Nguyễn băng băng
Xem chi tiết
Phan Đức Trung
Xem chi tiết
Diệp Tiên
Xem chi tiết
Mỹ Uyên
Xem chi tiết
Lý Tâm Như
Xem chi tiết
Đoàn Anh Vũ
Xem chi tiết
Nguyễn Văn Tiến Dũng
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
bùi thị ánh phương cute
Xem chi tiết