Question

nhập n các số nguyên vào mảng a ( n nhập từ bàn phím )

xuất gái trị các phần từ mảng a

tính tổng S các phần tử là số lẻtìm GTNN của mảng a

Answer 1

var a:array[1..200] of integer;

min,i,n:integer;

s:longint;

begin

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

for i:=1 to n do

begin

write('nhap phan tu thu ',i,' = ');readln(a[i]);

end;

writeln('Cac so vua nhap la :');

for i:=1 to n do write(a[i]:10);

writeln('Tong cac phan tu la so le la ');

for i:=1 to n do

if a[i] mod 2 <> 0 then s:=s+a[i];

writeln(s);

writeln('GTNN cua mang la ');

min:=a[1];

for i:=2 to n do

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

write(min);

readln;

end.

 

Answer 2

Uses crt;

var  n,i,k,min: longint;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do

read(a[i]); readln;

for i:=1 to n do begin

if(a[i] mod 2<>0) then k:=k+a[i];

end;

min:=a[1];

for i:=1 to n do begin

if(min>a[i]) then min:=a[i];

end;

writeln(k,' ',min);

readln;

end.