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.

11 tháng 10 2021

uses crt;

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

i,n,d,tong :integer;

begin

clrscr;

d:=0;

tong:=0;

readln(n);

for i:=1 to n do

readln(a[i]);

end;

for i:=1 to n do

if (a[i]>0) then begin

d:=d+1;

if d=1 then begin writeln('trong day co so nguyen duong '); write(' vi tri cua cac so duong ',i); end

else

begin

tong:=tong+a[i];

write(' ',i);

end;

end

else if ((i=n)and(d=0)) then write(' khong co so duong');

writeln;

writeln(' tong so luong so nguyen duong trong day so: ',d);

writeln(' ton cac so nguyen duong: ',tong);

readln;

end.

 

4 tháng 7 2017

chỉ ctv hoặc giáo viên mới lm đc thôi! còn chọn đúng thì nhấn đúng là ok bn!

13 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,dt,cv;

int main()

{

cin>>a>>b;

cv=(a+b)*2;

dt=a*b;

cout<<"Chu vi la:"<<cv<<endl;

cout<<"Dien tich la:"<<dt;

return 0;

}

23 tháng 10 2021

a: \(268_{10}=10C_{16}\)

b: \(12C_{16}=\text{100101100}_2\)

17 tháng 11 2017

Program bai1;

uses crt;

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

n,i: integer;

begin

clrscr;

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

for i:= 1 to n do

begin

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

end;

writeln('cac so chan la :');

for i:= 1 to n do

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

writeln;

writeln('cac so le la :');

for i:= 1 to n do

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

writeln;

writeln('cac so chia het cho 3 la :');

for i:= 1 to n do

if a[i] mod 3 = 0 then write(a[i] :4 );

readln;

end.

27 tháng 10 2017

bài 4:

input: số nguyên dương N và dãy N số nguyên từ A1->AN.

Output: Min của dãy đó.

Thuật toán:

B1: Nhập N và dãy A1->AN;

B2:min<- A1, i<- 2;

B3: nếu i>N thì đưa giá trị Min rồi kết thúc;

B4:

4,1: nếu A1 < Min thì Min <- A1;

4,2: i <- i+1 rồi quay lại bước 3;

2: 

#include <bits/stdc++.h>

using namespace std;

int i,dem,s;

int main()

{

dem=0;

s=0;

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

if (i%2==0)

{

dem++;

s=s+i;

}

cout<<fixed<<setprecision(2)<<(s*1.0)/(dem*1.0);

return 0;

}