K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

16 tháng 5 2023

Đối với Python:

a) và b):

print("Nhập dãy số nguyên:")
ds=[int(i) for i in input().split()]
T=0
for i in range (0,len(ds)):
    if ds[i]%2!=0:
        T=T+1
print("Trong dăy có",T,"số lẻ.")

c) 

print("Nhập dãy số nguyên:")
ds=[int(i) for i in input().split()]
S=0
P=1
for i in range (0,len(ds)):
    if ds[i]%3==0:
        S=S+ds[i]
print("Tổng các số chia hết cho 3 là",S)
for i in range (0,len(ds)):
    if ds[i]%3==0:
        P=P*ds[i]
print("Tích các số chia hết cho 3 là",P)

 

d)

print("Nhập dãy số nguyên:")
ds=[int(i) for i in input().split()]
ds.sort()
n=len(ds)
print(ds[n-1])

e)

print("Nhập dăy số nguyên:")
ds=[int(i) for i in input().split()]
for i in range (0,len(ds)):
    if ds[i]%6==0:
        print(ds[i])

 

 

 

 

 

5 tháng 5 2023

Bài 5:

Var a:array:[1..1000] of integer;

i,n,max:integer;

sc, sl:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');rreadlna[i]);

If a[i] mod 2 = 0 then sc:=sc+b[i];

If a[i] mod 2 <> 0 then sl:=sl+a[i];

End;

max:=a[1];

For i:=2 to n do

If a[i] > max then max:=a[i];

Writeln('Tong cac so chan la ',sc);

Writeln('Tong cac so le la ',sl);

write('So lon nhat la ',max);

Readln

End.

5 tháng 5 2023

Xin cảm ơnloading...  

6 tháng 4 2023

Bài 1:

Program HOC24;

var a: array[1..1000] of integer;

i,n,d: integer;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;

write('Co ',d,' so nguyen am chan trong day so');

readln

end.

6 tháng 4 2023

Bài 2:

Program HOC24;

var a: array[1..1000] of integer;

i,n: integer;

t: longint;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];

write(Tong la: ',t);

readln

end.

29 tháng 7 2023

đitf

16 tháng 4 2023

program TongSoChiaHetCho5;
var
  n, i, x, tong: integer;
begin
  write('Nhap so phan tu n: ');
  readln(n);
  
  tong := 0; 
  
  for i := 1 to n do
  begin
    write('Nhap phan tu thu ', i, ': ');
    readln(x);
    
    if (x > 0) and (x mod 5 = 0) then
      tong := tong + x; 
  end;
  
  writeln('Tong cac so lon hon 0 va chia het cho 5 la: ', tong);
  readln;
end.

 

16 tháng 4 2023

e cảm ơn ạ

 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t;

int main()

{

cin>>n; 

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

t=0;

for (i=1; i<=n; i++)

if (i%3==0) t+=i;

cout<<t<<endl;

for (i=1; i<=n; i++)

if (a[i]<0) cout<<a[i]<<" ";

return 0;

}

8 tháng 5 2023

program BaiTap;

var

      A: array[1..150] of integer;

      N, i, sum: integer;

begin

      write('Nhap so phan tu cua day A (N <= 150): ');

      readln(N);

      for i := 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(A[i]);

      end;

      writeln('Day so vua nhap la:');

      for i := 1 to N do

            write(A[i], ' ');

      writeln;

      sum := 0;

      for i := 1 to N do

            if A[i] mod 2 = 0 then

                  sum := sum + A[i];

      writeln('Tong cac phan tu chan trong day la: ', sum);

      readln;

end.

8 tháng 5 2023

cảm ơn bạn ạ

 

17 tháng 5 2021

Program HOC24;

var n,d,i: integer;

B: array[1..100] of integer;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

d:=0; t:=0;

for i:=1 to n do 

if b[i]>0 then

begin

d:=d+1;

t:=t+b[i];

end;

writeln('Tong cac so duong trong day so la: ',t);

write('Co ',d,' so duong trong day');

readln

end.

7 tháng 6 2021

uses crt;
var b:array[1..100] of longint;
      n,i,d,s:longint;
begin
      clrscr;
      write('n='); readln(n);
      for i:=1 to n do 
            begin
                  write('a[',i,']: '); readln(b[i]);
                  if b[i]>0 then begin
                        inc(d);
                        inc(s,b[i]);
                  end;
            end;
      writeln('Tong cac so duong: ',s);
      writeln('Co ',d,' so duong');
      readln;
end.