Viết chương trình nhập số nguyên dương N (<=100) A. Tính tổng các số nguyên vừa nhập B. Đưa ra màn hình các số lẻ C. Tính giá trị nhỏ nhất số nguyên n
Viết chương trình nhập số nguyên dương N (<=100) A. Tính tổng các số nguyên vừa nhập B. Đưa ra màn hình các số lẻ C. Tính giá trị nhỏ nhất số nguyên n
uses crt;
var n,i,s,min:longint; a:array[1..100]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
inc(s,a[i]);
end;
min:=a[1];
for i:=2 to n do
if (a[i]<min) then min:=a[i];
writeln(‘Tong: ‘,s);
write(‘Cac so le: ‘);
for i:=1 to n do
if (a[i] mod 2=1) then write(a[i],’ ‘);writeln;
writeln(‘Min: ‘,min);
readln;
end.
uses crt;
var i,n,s,min:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘Nhap n= (n<100) ‘);readln(n);
min:=high(longint);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
inc(s,a[i]);
if min>a[i] then min:=a[i];
end;
writeln(‘A. Tong cac so nguyen: ‘,s);
write(‘B. Cac so le: ‘);
for i:=1 to n do if a[i] mod 2=1 then write(a[i],’ ‘); writeln;
writeln(‘C. Gia tri nho nhat: ‘,min);
readln
end.