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.

#include <bits/stdc++.h>

using namespace std;

long long a[20],n,i,dem;

int main()

{

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

dem=0;

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

if (a[i]%2!=0) dem++;

cout<<dem;

return 0;

}

20 tháng 4 2022

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

max,min:integer;

tbc:real;

Begin

For i:=1 to 20 do

Begin

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

End;

Max:=a[1];

Min:=a[1];

For i:=2 to 20 do

Begin

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

If a[i] < min then min:=a[i];

End;

tbc:=(max+min)/2;

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

Writeln('So nho nhat la ',min);

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.

uses crt;

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

i,n,dem,dem1:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

dem:=0;

dem1:=0;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then 

begin

inc(dem);

b[dem]:=a[i];

end

else begin

ic(dem1);

c[dem1]:=a[i];

end;

end;

writeln('Co ',dem,' so chan');

writeln('Co ',dem1,' so le');

if dem>0 then 

begin

write('Cac so chan la: ');

for i:=1 to dem do 

  write(b[i]:4);

end;

if dem1>0 then 

  begin

write('Cac so le la: ');

for i:=1 to dem1 do 

  write(c[i]:4);

end;

readln;

end.

20 tháng 4 2022

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

max,min:integer;

tbc:real;

Begin

For i:=1 to 20 do

Begin

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

End;

Max:=a[1];

Min:=a[1];

For i:=2 to 20 do

Begin

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

If a[i] < min then min:=a[i];

End;

tbc:=(max+min)/2;

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

Writeln('So nho nhat la ',min);

Write('Trung binh cong la ',tbc:10:2);

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.

1:

uses crt;

const fi='ketqua.txt';

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

 if st[i]=#32 then delete(st,i,1);

writeln(f1,st);

close(f1);

end.

2:

uses crt;

var a,b,c,d:integer;

{----------chuong-trinh-con-----------------------}

function min(x,y:integer):integer;

begin

if x<y then min:=x

else min:=y;

end;

{---------------chuong-trinh-chinh--------------------}

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

writeln(min(a,min(b,min(c,d))));

readln;

end.

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

20 tháng 2 2021

uses crt;

var i,n: integer;

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

begin

writeln('nhap so nguyen n: '); readln(n);

for i:=1 to n do

begin

writeln('A[',i,']'); readln(a[i]);

if i mod 2 <>0 then writeln(i);

end;

readln;

end.

18 tháng 5 2022

B2 tong <- 0;

B3 in tong

B4 nếu 60 mod a[i]=0; thì tong <- tong + a[i] 

B5 nhập n

18 tháng 5 2022

Sắp xếp thuật toán giải bài toán trên

Viết chương trình Pascal hoàn chỉnh

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

cin>>n;

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

cin>>a[i];

cout<<"Cac so le la: "<<endl;

for (i=1; i<=n; i++) if (a[i]%2!=0) cout<<a[i]<<" ";

cout<<endl;

cout<<"Cac so chan la: "<<endl;

for (i=1; i<=n; i++) if (a[i]%2==0) cout<<a[i]<<" ";

return 0;

}

29 tháng 3 2023

n = int(input("Nhập vào giá trị của n: "))
even_count = 0
odd_count = 0

for i in range(1, n+1):
    if i % 2 == 0:
        even_count += 1
    else:
        odd_count += 1

print("Số chẵn trong dãy là:", even_count)
print("Số lẻ trong dãy là:", odd_count)