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 ạ!!
2 câu trả lời
uses crt;
var a : array [1.. 250] of integer;
i, n, d1, d2 : integer;
begin
clrscr;
write('Nhap so luong phan tu : '); readln(n);
write('Nhap mang A gom ', n ,' phan tu : ');
for i := 1 to n do begin read(a[i]);
if a[i] >0 then d1 := d1 + 1;
if a[i] < 0 then d2 := d2 + 1;
end;
write('Day co ', d1 ,' so nguyen duong va ', d2 ,' so nguyen am');
readln
end.
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.
