Viết chương trình nhập mảng a gồm n số nguyên (thưc)n<=100 đếm số lượng phần tử.Tính tổng

0 bình luận về “Viết chương trình nhập mảng a gồm n số nguyên (thưc)n<=100 đếm số lượng phần tử.Tính tổng”

1. program ct;

   uses crt;

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

         i,n,d:integer;

         S:longint;

   begin clrscr;

      write(‘Nhap so phan tu n: ‘); readln(n);

      for i:=1 to n do

        begin

           writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

        S:=0;

      for i:=1 to n do

        begin

           inc(d);

           S:=S+A[i];

        end;

      writeln(‘So luong phan tu la: ‘,d);

      writeln(‘Tong la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận

2. program ct;

   uses crt;

   var i,n,S,d:integer;          

   A: array[1..100] of integer;

   begin

   clrscr;

         write(‘nhap n:=’);readln(n);

            for i:=1 to n do

   begin

          write(‘nhap mang A[‘,i,’]:=’);readln(a[i]);

   end;

        d:=0;  S:=0;

            for i:=1 to n do

    begin

        d:=d+1; 

        S:=S+A[i];

     end;

   writeln(‘co’,d,’ phan tu’);

   writeln(‘tong la:’,S);

   readln

   end.

   Bình luận