Viết chương trình nhập vào một dãy số gồm n số nguyên dương ( n nhỏ hơn hoặc bằng 250) a) In ra màn hình dãy số vừa nhập b) Tính tổng các số âm trong dãy
2 câu trả lời
program mang;
uses crt;
var A:array [1..500] of integer;
n,i,T: integer;
Begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
write('Day so vua nhap la: ');
for i:=1 to n do write(A[i],' ');
writeln;
for i:=1 to n do
if A[i]<0 then T:=T+A[i]
else write('Khong co so am');
write('T = ',T);
readln
End.
uses crt;
var A:array [1..250] of integer;
n,i,s,dem,sch,x,demx:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Nhap x: '); readln(x);
s:=0; dem:=0; sch:=0; demx:=0;
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
s:=s+A[i];
if A[i]<0 then inc(dem);
if A[i] mod 2 = 0 then sch:=sch+A[i];
if A[i] = x then inc(demx);
end;
for i:=1 to n do write(A[i]:4);
writeln;
writeln('Tong cac phan tu trong day la: ',s);
writeln('Co ',dem,' so hang la so nguyen am');
writeln('Tong cac so chan la: ',sch);
writeln('So luong cac phan tu bang ',x,': ',demx);
readln
end.
