Ngọc Anh Nguyễn
Hỏi từ APP VIETJACK
Nhập mảng số nguyên N phần tử(N>0).yêu cầu đếm các giá trị chia hết cho 5 trong mảng, tìm giá trị lớn nhất trong mảng
Quảng cáo
1 câu trả lời 237
2 năm trước
Program Chia_het_cho_5; uses crt; const n=10; var a:array[1..n] of integer; max,i:integer; begin writeln('Nhap vao cac phan tu cua mang'); for i:=1 to n do begin writeln('Nhap a[',i,']:'); readln(a[i]); end; max:=a[1]; for i:=1 to n do begin if (a[i] mod 5=0) then begin if (a[i]>max) then max:=a[i]; end; end; writeln(max:0); delay(5000); end.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!