Ngọc Nguyễn Như
Hỏi từ APP VIETJACK
Viết ct xác định số nhỏ nhất trong dãy số được nhập từ bàn phím, và tính tổng các số trong dãy đó . Giúp tui với tui đang thi ạ?
Quảng cáo
1 câu trả lời 189
program dvfs;
uses crt;
var i,n,tong: integer;
Q: array[1..1000] of integer;
begin
clrscr;
writeln('Nhap do dai day, N = '); read(n);
write('Nhap cac phan tu cua day: ');
for i:= 1 to n do
begin
writeln('Q[',i,'] = '); read(Q[i]);
end;
tong:=0;
for i:= 1 to n do
if Q[i] mod 3 = 0 then tong:= tong + Q[i];
writeln('Tong cac so nguyen chia het cho 3 la ,tong);
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45584
-
Đã trả lời bởi chuyên gia
29017 -
Hỏi từ APP VIETJACK28522
Gửi báo cáo thành công!
