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
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
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.