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.
Program HOC24;
var i,d,n,x: integer;
a: array[1..100] of integer;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Nhap x: '); readln(x);
d:=0;
for i:=1 to n do if a[i] mod x=0 then d:=d+1;
write(d);
readln
end.
program VTC:
uses crt;
Begin
clrscr;
Writeln(' THPT Hoang Hoa Tham' );
readln;
end.
#include <bits/stdc++.h>
using namespace std;
double a[100];
int n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]>=1.5) cout<<fixed<<setprecision(2)<<a[i]<<" ";
return 0;
}
uses crt;
var a:array[1..100]of integer;
i,n,max,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(max);
writeln(t/n:4:2);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,max,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(max);
writeln(t/n:4:2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a[100],i,n,t1,t2;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t1=0;
t2=0;
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;
}
