Nhập vào 1 mảng gồm n phần tử (n nhỏ hơn hoặc bằng 100).Tính và đưa ra màn hình tổng các số âm trong mảng.Help me

0 bình luận về “Nhập vào 1 mảng gồm n phần tử (n nhỏ hơn hoặc bằng 100).Tính và đưa ra màn hình tổng các số âm trong mảng.Help me”

1. program oken;
   uses crt;
   var a: array [1..100] of integer;
       i,n,s: longint;
   begin
       clrscr;
       write(‘Nhap so phan tu cua mang: ‘); readln(n);
       s:=0;
       for i:=1 to n do
           begin
               write(‘A[‘,i,’]: ‘);
               readln(a[i]);
               if a[i]<0 then
                   s:=s+a[i];
           end;
       writeln(‘Tong cac so am: ‘,s);
       readln;
   end.

   Bình luận

2. program ct;

   uses crt;

   var i,n,S: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;

       for i:=1 to n do

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

       writeln(‘tong la:’,S);

   readln

   end.

   Bình luận