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ố đó
(Làm bằng python ạ)
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ố đó
(Làm bằng python ạ)
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.
var m: array[1..100] of integer;
n,i,max,j,t,scp: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap m[‘,i,’]: ‘); readln (m[i]);
if max<=abs(m[i]) then max:=abs(m[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if m[i]<m[j] then
begin
t:=m[i];
m[i]:=m[j];
m[j]:=t;
end;
write (‘day sau khi sap xep giam dan: ‘);
for i:=1 to n do write (m[i],’ ‘);
writeln;
writeln (‘gia tri tuyet doi lon nhat trong day: ‘,max);
write (‘cac so chinh phuong trong day: ‘);
for i:=1 to n do
begin
scp:=trunc(sqrt(m[i]));
if sqr(scp)=m[i] then
write (m[i],’ ‘);
end;
readln;
end.