Viết chương trình nhập N số nguyên từ bàn phím:
a, in ra màn hình các số chẵn, số lẻ
b, tính và in ra màn hình tổng các số âm, tổng các số dương
c, đếm các số không có trong dãy số đó
Viết chương trình nhập N số nguyên từ bàn phím:
a, in ra màn hình các số chẵn, số lẻ
b, tính và in ra màn hình tổng các số âm, tổng các số dương
c, đếm các số không có trong dãy số đó
program baitap;
uses crt;
var A:array[1..10000] of integer;
n,i,ta,td,d:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);
for i:=1 to n do
begin
write(‘phan tu thu ‘,i,’: ‘);
readln(A[i]);
end;
write(‘Cac so chan co trong day la: ‘);
for i:=1 to n do
if A[i] mod 2=0 then
write(A[i],’ ‘);
writeln;
write(‘Cac so le co trong day la: ‘);
for i:=1 to n do
if A[i] mod 2=1 then
write(A[i],’ ‘);
ta:=0; td:=0;
for i:=1 to n do
if A[i]<0 then ta:=ta+A[i]
else td:=td+A[i];
writeln(‘Tong cac so am trong day la: ‘,ta);
writeln(‘Tong cac so duong co trong day la: ‘,td);
d=0;
for i:=1 to n do
if A[i]=0 then d:=d+1;
write(‘Co ‘,d,’ so 0 o trong day’);
readln
end.
uses crt;
var a: array[1..100] of longint;
i,n,ta,td,d: longint;
begin
clrscr;
write (‘nhap so phan tu cua mang: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
if a[i]<0 then ta:=ta+a[i];
if a[i]>0 then td:=td+a[i];
if a[i]=0 then d:=d+1;
end;
write (‘cac so chan la: ‘);
for i:=1 to n do if a[i] mod 2=0 then write(i,’ ‘);
write (‘cac so le la: ‘);
for i:=1 to n do if a[i] mod 2<>0 then write(i,’ ‘);
writeln (‘tong cac so am: ‘,ta);
writeln (‘tong cac so duong: ‘,td);
writeln (‘co ‘,d,’ so 0 trong day so’);
readln;
end.
????????????????????????
học tốt