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 x,n,i,dem1,dem2,t1,t2;

int main()

{

cin>>n;

t1=0;

t2=0;

dem1=0;

dem2=0;

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

{

cin>>x;

if (x%2==0)

{

dem1++;

t1+=x;

}

else

{

dem2++;

t2+=x;

}

}

cout<<t1<<" "<<dem1<<endl;

cout<<t2<<" "<<dem2;

return 0;

}

23 tháng 6 2023

sử dụng hàm sqrt căn bậc 2 của x trong c++

17 tháng 9 2021

program hinhtron;

var r:real;

const pi=3.14;

begin

clrscr;

Write('Nhapbankinh:');readln(r);

Writeln('Dientichhinhtronla:',pi*r*r);

readln

end.

 
22 tháng 8 2023

Có thể coi mọi phần mềm viết bằng Python đều là phần mềm nguồn mở.

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

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

{

cin>>a[i];

if (a[i]<0 || a[i]>10) cin>>a[i];

}

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

cout<<endl;

t=0;

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

cout<<t;

return 0;

}

uses crt;

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

i,n,t,j,tam:integer;

begin

clrscr;

readln(n,k);

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

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end;

write(a[k]);

readln;

end.

28 tháng 2 2023

program sonho;

var

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

     k, n, i, min: integer;

begin

     write('Nhap n: ');

      readln(n);

     write('Nhap cac phan tu cua day: ');

     for i := 1 to n do

     begin

          readln(arr[i]);

     end;

     write('Nhap k: ');

     readln(k);

     min := arr[1];

     for i := 2 to k do

     begin

          if (arr[i] < min) then

               min := arr[i];

     end;

     writeln('So nho thu ', k, ' trong day la: ', min);

end.

27 tháng 2 2023

var A:

     array[1..n] of integer;

     i, j, n: integer;

begin

     write('Nhap so phan tu cua mang: ');

     readln(n);

     for i := 1 to n do

     begin

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

          readln(A[i]);

     end;

 

     for i := 1 to n - 1 do

         for j := i+1 to n do

            if (A[i] mod 2 = 0) and (A[j] mod 2 = 0) and (A[i] < A[j]) or (A[i] mod 2 = 1) and (A[j] mod 2 = 1) and (A[i] > A[j]) then

            begin

                swap(A[i], A[j]);

            end;

     writeln('Mang da sap xep la: ');

      for i := 1 to n do

         writeln(A[i]);

end.