Viết chương trình a) khai báo mảng 8 ptử số nguyên b) nhập giá trị cho mảng C) hiển thị các số âm D)tính tổng các số âm

0 bình luận về “Viết chương trình a) khai báo mảng 8 ptử số nguyên b) nhập giá trị cho mảng C) hiển thị các số âm D)tính tổng các số âm”

1. Program BTT;
   Uses crt;
   Var A: array[1..8] of longint;
       i,d: longint;
   Begin
           Clrscr;
           For i:=1 to 8 do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           d:=0;
           Write(‘Cac so am la: ‘);

           For i:=1 to 8 do
                   If A[i]<0 then
                   Begin
                           d:=d+A[i];
                           Write(A[i],’ ‘);
                   End;
           Writeln;

           Write(‘Tong cac so am la: ‘,d);
           Readln
   End.

   Bình luận