Viết chương trình nhập vào dãy N số nguyên
a)Tìm phần tử nhỏ nhất của dãy
b)tính tổng các phần tử lẻ của dãy
c)Sắp xếp dãy theo thứ tự giảm dần
Viết chương trình nhập vào dãy N số nguyên
a)Tìm phần tử nhỏ nhất của dãy
b)tính tổng các phần tử lẻ của dãy
c)Sắp xếp dãy theo thứ tự giảm dần
a) Uses Crt;
Var a:array[1..1000] of integer;
i,n,min:integer;
Begin
Clrscr;
Write(‘Nhap so ptu N = ‘); Readln(n);
For i:= 1 to n do
Begin
Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);
End;
min:=a[1];
For i:= 2 to n do
Begin
If min>a[i] then min:=a[i];
End;
Writeln(‘So nho nhat trong day la: ‘,min);
Readln
End.
b) Uses Crt;
Var a:array[1..1000] of integer;
i,n,tl:integer;
Begin
Clrscr;
Write(‘Nhap so ptu N = ‘); Readln(n);
For i:= 1 to n do
Begin
Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);
End;
For i:= 1 to n do If a[i] mod 2 <> 0 then tl:=tl+a[i];
Writeln(‘Tong cac so le trong day la: ‘);
Write(tl:3);
Readln
End.
c) Uses Crt;
Var a:array[1..1000] of integer;
i,n,j,tg:integer;
Begin
Clrscr;
Write(‘Nhap so ptu N= ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap so thu a[‘,i,’]: ‘); Readln(a[i]);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]<A[j] then
Begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
Writeln;
Writeln(‘ Day so sau khi sap xep theo thu tu giam dan la: ‘);
For i:= 1 to n do Write(a[i]:5);
Readln
End.
gửi bạn