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 ạ
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 ạ
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!
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 😀