Nhập mảng 1 chiều gồm n phần tử từ bàn phím ( n<= 250 ) 1 tính tổng các phần tử mảng 1 chiều 2 tính tổng các phần tử chia hết cho cả 3 và 5 3 tìm min giúp mình bài này với ạ

ctvloga166

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 33 xem

1 trả lời

Thích Trả lời

kimanh1879

program Min;
uses crt;
var A:array[1..250] of integer;
tong1,tong2,m,i,n:integer;
begin
clrscr;
tong1:=0;
tong2:=0;
writeln('Nhap n: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap phan tu thu ',i);
readln(A[i]);
end;
{cau 1}
for i:=1 to n do tong1:=tong1+A[i];
{cau 2}
for i:=1 to n do
begin
if (A[i] mod 3 = 0) and (A[i] mod 5 =0) then tong2:=tong2+A[i];
end;
writeln('Tong cac phan tu chia het cho 3 va cho 5 la: ',tong2);
{cau 3}
m:=A[1];
for i:=2 to n do
if m>A[i] then m:=A[i];
writeln('Min la: ',m);
readln
end.

Bạn kiểm tra lại chương trình nhé, mình đã chạy thử và cho kết quả đúng :D

Vote (0) Phản hồi (0) 2 năm trước

phamthuan127

program ct;

uses crt;

var A:array[1..250] of integer;

i,n,min,S,S1:longint;

begin clrscr;

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

write('Nhap A[',i,']: '); readln(A[i]);

end;

min:=A[1];

for i:=1 to n do

begin

S:=S+A[i];

if (A[i] mod 3=0) and (A[i] mod 5=0) then S1:=S1+A[i];

if A[i]<min then min:=A[i];

end;

writeln('Tong mang la: ',S);

writeln('Tong cac phan tu chia het cho 3 va 5 la: ',S1);

writeln('Min la: ',min);

readln;

end.

Học tốt!

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Cách để phòng chống bệnh cao huyết áp? A Hạn chế ăn muối,chất béo,uống rượu bia,hút thuốc lá B Thường xuyên luyện tập TDTT,lao động vừa sức,tránh xúc động mạnh,lo âu,căng thẳng C Hạn chế ăn thức ăn có hại cho tim mạch,sử dụng 1 số chất kích thích nhẹ D Lựa chọn môn thể thao vừa sức ,ăn thức ăn có nhiều mỡ động vật Chọn câu nào ạ

Cho tam giac abc vuong tai a (ab <ac),voi bc=6.DUOng trung tuyen AM.goi Ola trung diem cua AC .Nla diem doi xung voiM quaO tinhAM? tu giac amcn la hinh gi vi sao voi dieu kien nao cua tam giacABC de tu giac AMCN la hinh vuong

các thành phần chính có trên màn hình nện máu tính của hheej điều hành Windown

Bài tập: Tính % khối lượng của nguyên tố có trong các hợp chất sau: a) K2CO3 b) ZnSO4

Các yêu cầu của lắp mạch điện bảng điện

Xe lửa khối lượng M = 100 tấn đang chuyển động thẳng đều trên mặt ngang với vận tốc 60km/h. Biết hệ số ma sát lăn trên mặt đường là 0,09. a) Tìm lực kéo của động cơ. b) Xe lửa đang chuyển động thì một toa hàng có khối lượng 10 tấn tách khỏi đoàn tàu. Hỏi khi toa hàng dừng thì phần còn lại của xe lửa cách nó bao xa. Lực kéo của động cơ là không đổi. Giải hộ mk câu 27 mk cảm ơn

cho tam giác abc vuông tại . M là trung điểm của Bc . Trên tia đối tia Ma lấy điểm D sao cho Md = Ma . chứng minh a) tam giác MAB = tam giác MDC b) BD // AC c) Tính góc ACD d) Am = 1/2Bc

Write about your trip to the Temple of Literature. Giúp mk 20/12 mk thi HK1 rồi

lập dàn ý chi tiết phân tích tâm trạng CHÍ PHÈO trong cuộc gặp gỡ với Thj nở

Đóng vai trò là người lãnh đạo đất nước trong bối cảnh của cuộc khủng hoảng kinh tế 1929-1933, em lựa chọn con đường nào để thoát khỏi cuộc khủng hoảng đó ? Tại sao?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến