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.

Câu 2: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do 

if (4<a[i]) and (a[i]<15) then t:=t+a[i];

writeln(t);

readln;

end.

14 tháng 4 2022

giúp mình với ạ, môn nghề lớp 8 ạ

 

21 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<fixed<<setprecision(2)<<1/(a*1.0+b*1.0);

return 0;

}

4 tháng 4 2022

MỌI NGƯỜI ƠI GIÚP EM VỚI Ạ EM CẢM ƠN NHIỀU LẮM Ạ 

Viết chương trình nhập vào dãy số nguyên có N phần tử. - Tính tổng các số lẽ. - Tính tích các số chẵn.

4 tháng 4 2022

Viết chương trình nhập vào dãy số nguyên có N phần tử. - Tính tổng các số lẽ. - Tính tích các số chẵn.

mọi người giúp em với em cảm ơn ạ

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t1,t2;

int main()

{

cin>>n;

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

t1=0;

t2=1;

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

{

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

else t2*=a[i];

}

cout<<t1<<endl;

cout<<t2<<endl;

return 0;

}

uses crt;

var st:array[1..100]of string;

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

i,n:integer;

max:real;

begin

clrscr;

readln(n);

for i:=1 to n do readln(st[i],a[i],b[i],c[i]);

max=(a[1]+b[1]+c[1])/3;

for i:=1 to n do 

if (max<(a[i]+b[i]+c[i])/3) then max:=(a[i]+b[i]+c[i])/3;

writeln(max:4:2);

readln;

end.

16 tháng 12 2022

#include <bits/stdc++.h>

using namespace std;

int a,b,c,A[3];

int main()

{

cin>>a>>b>>c;

A[1]=a; A[2]=b; A[3]=c;

sort(A+1,A+3);

for (int i=3; i>=1; i--) cout<<A[i]<<" ";

return 0;

}