Nguyễn Huyền
Hỏi từ APP VIETJACK
Viết chương trình tạo ngẫu nhiên n phần tử trong mảng và đưa ra màn hình chỉ số và giá trị của phần tử tìm được. Nếu có nhiều phần tử có cùng giá trị lớn nhất thì đưa ra phần tử có chỉ số nhỏ nhất
Quảng cáo
1 câu trả lời 1529
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
86361
Gửi báo cáo thành công!
