cho mảng a gồm n phần tử được nhập từ bàn phím, tính tổng các phần tử âm

0 bình luận về “cho mảng a gồm n phần tử được nhập từ bàn phím, tính tổng các phần tử âm”

1. CÁI NÀY TỰ LÀM MÀ, CÓ 1 CÁI CÔNG THỨC CHỨ NHIÊU MÀ BẢO SAO CHÉP!!!!!!!!!!

   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 cac so am la:’,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 cac so am la:’,S);

   readln

   end.

   Bình luận