Giúp mik vs ạ :cho dãy số nguyên n phần tử (n=<100). a,tính tổng các số âm trong dãy số nguyên b,Nhập k , tìm và xóa đi phần tử đầu tiên trong dãy bằ

0 bình luận về “Giúp mik vs ạ :cho dãy số nguyên n phần tử (n=<100). a,tính tổng các số âm trong dãy số nguyên b,Nhập k , tìm và xóa đi phần tử đầu tiên trong dãy bằ”

1. uses crt;
   var n:byte;
       a:array[1..100] of integer;
       i,k,S:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      write(‘Nhap k: ‘); readln(k);
      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];
         if k=a[i] then a[i]:=0;
      end;
      write(‘Tong cac so am la: ‘,S);
   end.

   Bình luận