viết chương trình nhập vào mảng A có n số nguyên . hảy cho biết a. tổng các phần tử lẻ b. tổng các phần tử ở vị trí lẻ c. giá trị nhỏ nhất ? vị trí

0 bình luận về “viết chương trình nhập vào mảng A có n số nguyên . hảy cho biết a. tổng các phần tử lẻ b. tổng các phần tử ở vị trí lẻ c. giá trị nhỏ nhất ? vị trí”

1. Program NN;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,j,tg,s,ss,min,vt: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do Read(A[i]);
           s:=0; ss:=0; min:=A[1]; vt:=1;
           For i:=1 to n do
           Begin
                   If A[i] mod 2 <>  0 then s:=s+A[i];
                   If i mod 2 <> 1 then ss:=ss+A[i];
                   If A[i] < min then
                   Begin
                           min:=A[i];
                           vt:=i;
                   End;
           End;
           Writeln(s);
           Writeln(ss);
           Writeln(min,’ ‘,vt);

           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;
           For i:=1 to n do Write(A[i]);
           Readln
   End. 

   Bình luận