Viết chương trình in ra màn hình phần tử có giá trị là bội của 3 trong dãy N số nguyên / số thực nhập vào từ bàn phím
Viết chương trình in ra màn hình phần tử có giá trị là bội của 3 trong dãy N số nguyên / số thực nhập vào từ bàn phím
uses crt;
var n,i,min:integer;
a:array[1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua day:’);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
if a[i]<min then min:=a[i];
write(‘gia tri nho nhat cua day so la:’,min);
readln;
end.
uses crt;
var a:array[1..250]of integer;
i,n,t,dem:integer;
begin
clrscr;
write(‘n=’); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]’); readln(a[i]);
end;
{——————————xu-ly—————————}
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln(‘so phan tu la boi cua 3 trong day nay la: ‘,dem);
writeln(‘tong cua cac phan tu la boi cua 3 trong day nay la: ‘,t);
readln;
end.