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 1188
2 năm trước
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
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!