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ố đó
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);
write(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);
ta:=0; td:=0; d:=0;
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.
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