Viết phương trình nhập vào dãy số gồm n phần tử. Tính tổng các phần tử âm trong dãy

0 bình luận về “Viết phương trình nhập vào dãy số gồm n phần tử. Tính tổng các phần tử âm trong dãy”

1. program tt;

   uses crt;

   var n,i,s: integer;

         a: array[1..1000] 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]);

               if a[i]<0 then s:=s+a[i];

           end;

       writeln(‘Tong cac phan tu am trong mang la: ‘,s);

   readln;

   end.

   Bình luận

2. program ct;

   uses crt;

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

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

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

      writeln(‘Tong cac phan tu am la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận