Kiều Vy (Di)
Hỏi từ APP VIETJACK
viết chương trình tạo ngẫu nhiên mảng A có tối đa 200 phần tử mỗi phần tử là số nguyên có giá trị tuyệt đối không quá 500. tính và in ra màn hình
a. mảng vừa tạo
b. nhập vào số nguyên dương k từ bàn phím. tính tổng các phần tử chia hết cho k trong mảng
c. tính tổng số âm, dương trong mảng
d. cho biết có bao nhiêu phần tử lớn hơn k trong mảng
a. mảng vừa tạo
b. nhập vào số nguyên dương k từ bàn phím. tính tổng các phần tử chia hết cho k trong mảng
c. tính tổng số âm, dương trong mảng
d. cho biết có bao nhiêu phần tử lớn hơn k trong mảng
Quảng cáo
1 câu trả lời 1415
uses crt;
var a:array[1..200]of integer;
n,i,k,t,t1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
t1:=0;
for i:=1 to n do
if a[i] mod k=0 then t1:=t1+a[i];
writeln('Tong cac phan tu le la: ',t);
writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86376
Gửi báo cáo thành công!
