viết chương trình tạo mảng một chiều gồm n phần tử có kiểu nguyên ( N ≤ 1000 ) rồi tính tổng các phần tử là số lẻ

0 bình luận về “viết chương trình tạo mảng một chiều gồm n phần tử có kiểu nguyên ( N ≤ 1000 ) rồi tính tổng các phần tử là số lẻ”

1. program ct;

   uses crt;

   var A:array[1..1000] of integer;

         i,n,S:longint;

   begin clrscr;

      write(‘Nhap so phan tu: ‘); 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=1 then S:=S+A[i];

      write(‘Tong cac phan tu la so le la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận

2. Program TT;
   Uses crt;
   Var A:array[1..10000] of longint;
       i,n,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;

           s:=0;
           For i:=1 to n do
                   If A[i] mod 2 = 1 then s:=s+A[i];
           Write(s);
           Readln
   End.

   Bình luận