Cho mảng A gồm n (n<=250 ) phần tử nguyên. Viết chương trình đếm các số nguyên trong dãy A có n phần tử Mn giúp mình với ạ!!

0 bình luận về “Cho mảng A gồm n (n<=250 ) phần tử nguyên. Viết chương trình đếm các số nguyên trong dãy A có n phần tử Mn giúp mình với ạ!!”

1. uses crt;

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

   i,n,t:integer;

   begin

   clrscr;

   write(‘n=’); readln(n);

   for i:=1 to n do

   begin

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

   end;

   t:=0;

   for i:=1 to n do

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

   writeln(t);

   readln;

   end.

   Bình luận