Cho mảng nguyên A gồm n phần tử tính tổng và đếm số lượng các phần tử âm viết chương trình pascal ạ

0 bình luận về “Cho mảng nguyên A gồm n phần tử tính tổng và đếm số lượng các phần tử âm viết chương trình pascal ạ”

1. program mangnguyenA;

   uses crt;

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

         n,i,d:integer;

         tong:byte;

   begin

   clrscr;

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

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);

   tong:=0;  d:=0;

   for i:=1 to n do

    begin

     write(‘A[‘,i,’]= ‘);

     readln(A[i]);

     tong:=tong+A[i];

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

    end;

   write(‘Mang nguyen A vua nhap la: ‘);

   for i:=1 to n do

    write(A[i],’ ‘);

   writeln;

   writeln(‘Tong cac phan tu cua mang la: ‘,tong);

   writeln(‘Co ‘,d,’ phan tu am trong mang nguyen A’);

   readln

   end.

   Bình luận

2. program tinhtong;
   Uses crt;
   Var
       A: array[1..1000] of integer;
       N, i, dem, tong: integer;
   Begin
       dem := 0;
       tong := 0;
       clrscr;
       Read(N);
       for i:=1 to N do Read(A[i]);
       for i:=1 to N do
       begin
           if (A[i] < 0) then dem := dem + 1;
           tong := tong + A[i];
       end;
       writeln(tong);
       writeln(dem);
   End.

   Bình luận