Phát sinh ngẫu nhiên n giá trị của mảng A(n<=100) có giá trị tuyệt đối không vượt quá 300 .Yêu cầu tính tổng các số nguyên tố có trong mảng
Quảng cáo
1 câu trả lời 402
program Sum1;
uses crt;
const nmax=100;
type MyArray= array[1..nmax] of integer;
var A: MyArray;
s, n, i, k: integer;
Begin
clrscr;
randomize; write(‘Nhap n= ’);
readln(n); {Tao ngau nhien mang gom n so nguyen]}
for i:= 1 to n do A[i] := random(301)-random(301) ;
for i:=l to n do write (A[i] :5) ; {in ra mang vua tao}
writeln;
write(‘Nhap k = ‘);
readln(k);s: =0;
for i:= 1 to n do
if A[i] mod k = 0 then s:= s+ A[i];
writeln(‘Tong can tinh la: ‘ ,s);
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
86304
Gửi báo cáo thành công!
