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.

6 tháng 4 2023

# Dãy số thứ nhất

list1 = list(map(int, input("Nhập dãy số thứ nhất, cách nhau bằng khoảng trắng: ").split()))

so_chan1 = 0

so_le1 = 0

for num in list1:

     if num % 2 == 0:

          so_chan1 += 1

     else:

          so_le1 += 1

print("Trong dãy số thứ nhất có", so_chan1, "số chẵn và", so_le1, "số lẻ.")

# Dãy số thứ hai

list2 = list(map(int, input("Nhập dãy số thứ hai, cách nhau bằng khoảng trắng: ").split()))

so_chan2 = 0

so_le2 = 0

for num in list2:

     if num % 2 == 0:

          so_chan2 += 1

     else:

          so_le2 += 1

print("Trong dãy số thứ hai có", so_chan2, "số chẵn và", so_le2, "số lẻ.")

Câu 2: 

a) Mô tả thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: dem←0; i←1; t←0;

-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];

-Bước 4: i←i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất t và dem

-Bước 7: Kết thúc

Câu 2: 

b) uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

dem:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then 

begin

t:=t+a[i];

inc(dem);

end;

writeln('So so chan la: ',dem);

writeln('Tong cac so chan la: ',t);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}

uses crt;

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

i,n,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]):

dem:=0;

for i:=1 to n do if a[i] mod 2=0 then inc(dem);

writeln('so so chan la: ',dem);

writeln('so so le la: ',n-dem);

readln;

end.

4 tháng 5 2022

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

i,n,d1,d2,s:integer;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

Begin

If a[i] mod 2 = 0 then d1:=d1+1;

If (a[i] > 0) and (a[i] < 51) then d2:=d2+1;

End;

Writeln('Co ',d1,' so chan');

Write('Co ',d2,' so tu 1 den 50');

Readln;

End.

7 tháng 6 2021

uses crt;
var a:array[1..1000000] of longint;
      n,i,d:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i] mod 2=0 then inc(d);
            end;
      write('Co ',d,' gia tri la so chan');
      readln;
end.

7 tháng 6 2021

uses crt;
var a:array[1..1000000] of longint;
      n,i,d:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i] mod 2=1 then inc(d);
            end;
      write('Co ',d,' gia tri la so le');
      readln;
end.

3 tháng 5 2022

Program HOC24;

var d,i,n: integer;

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

begin

write('Nhap do dai cua day: '); readln(n);

for i:=1 to n do 

begin

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

end;

d:=0;

for i:=1 to n do if a[i] mod 2=1 then d:=d+1;

write('Co tat ca ',d,' gia tri le');

readln

end.