Mn ơi mk cần gấp lắm ạ VCT Nhập số nguyên dương N ( N<=250) và dãy N số nguyên dương a1,a2.. an. - In ra các phần tử âm của mảng - Tính tổng các phần

0 bình luận về “Mn ơi mk cần gấp lắm ạ VCT Nhập số nguyên dương N ( N<=250) và dãy N số nguyên dương a1,a2.. an. - In ra các phần tử âm của mảng - Tính tổng các phần”

1. uses crt;

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

   n,i,s: integer;

   begin

   clrscr;

   write (‘nhap n: ‘);  readln (n);

   for i:=1 to n do

   begin

   write (‘nhap a[‘,i,’]: ‘);  readln (a[i]);

   end;

   write (‘cac phan tu am: ‘);

   for i:=1 to n do

   if a[i]<0 then begin write(a[i],’  ‘); s:=s+i; end;

   writeln;

   writeln (‘tong cac phan tu am la: ‘,s);

   readln;

   end.

   Bình luận

2. var a: array[1..250] of integer;

        s: longint;

        i, n: byte;

   Begin

       S:=0;

       Write(‘n = ‘); readln(n);

       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 la: ‘, s);

       Writeln(‘cac so am: ‘);

       For i:=1 to n do if a[i]<0 

         Then write(a[i], ‘ ‘);

       Readln

   End.

   Bình luận