Nhập N và dãy N1,N2-.AN lá các số nguyên từ bàn phím sử dụng ngôn ngữ lập trình free pascal để lập trình tính Tổng các phần tử trong dãy rồi in kế

0 bình luận về “Nhập N và dãy N1,N2-.AN lá các số nguyên từ bàn phím sử dụng ngôn ngữ lập trình free pascal để lập trình tính Tổng các phần tử trong dãy rồi in kế”

1. uses crt;
   var i,N,s,dem:integer;
       A:array[1..10000] of integer;
   begin
      clrscr;
      write(‘Nhap N: ‘); readln(N);
      for i:=1 to N do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
      end;
      S:=0; dem:=0;
      for i:=1 to N do
      begin
         S:=S+A[i];
         if A[i]>0 then dem:=dem+1;
      end;
      write(‘Tong cac phan tu la: ‘,S);
      writeln;
      write(‘Co ‘,dem,’ phan tu la so am’);
      readln
   end.

   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;

     S:=0; d:=0;

       for i:=1 to n do

    begin

      S:=S+A[i];

      if A[i]<0 then d:=d+1;

    end;

     writeln(‘tong cua cac phan tu la:’,S);

     writeln(‘co’,d,’ phan tu la so am’);

   readln

   end.

   Bình luận