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.

24 tháng 10 2018

var

n,k,d,i,s:integer;

begin

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 k = a[i] then d:=d+1;

writeln(k,' xuat hien ',d,' lan trong mang ');

for i:= 1 to n do

if a[i] mod 2 = 0 then s:= s+a[i];

write(' tong so chan trong mang la :',s);

readln;

end.

CHÚC BẠN HỌC TỐT :D

24 tháng 10 2018

ôi chết dưới phần nhập n bạn thêm :

write(' nhap k: ');

readln(k);

CHO mình nha

31 tháng 10 2020

T là biến dùng để tính tổng các số trong dãy

d là số lượng số dương trong dãy

29 tháng 10 2020

Thuật toán liệt kê

a.

Bước 1: Nhập N và dãy a1,a2,...,an

Bước 2: T←0; i←1;

Bước 3: Nếu i>n thì in ra T và kết thúc

Bước 4: T←T+ai;

Bước 5: i←i+1; quay lại bước 3

b.

Bước 1: Nhập N và dãy a1,a2,...,an

Bước 2: d←0; i←1;

Bước 3: Nếu i>n thì in ra d và kết thúc

Bước 4: Nếu ai>0 thì d←d+1;

Bước 5: i←i+1; quay lại bước 3

22 tháng 10 2017

a)

Input : Các hệ số a,b,c (a

Output:Tất cả các số thực x thoả mãm ax^2+bx+c , Phương trình có nghiệm kép,vô nghiệm, 2 nghiệm phân biệt

Ta có thuật toán:

B1: Nhập 3 số thực a,b,c

B2 : p=b*b-4ac

B3:Nếu p<0 thì đưa ra P vô nghiệm rồi kết thúc

B4 : Nếu P=0 thì đưa ra P có 1 nghiệm kép

B5:Nếu P>0 thì: P có 2 nghiệm phan biệt

B6 ; kt

27 tháng 10 2017

Ý a:

· Input: các số thực a,b,c (a≠0)

· Output: các nghiệm x thỏa mãn ax2 +bx+c=0

Ý tưởng: xác định các số a.b.c -> tính ⌂ -> so sánh ⌂ với 0 -> nghiệm

Thuật toán:

B1: nhập các số thực a,b,c (a ≠0);

B2: D<- b2 -4ac;

B3: so sánh D<0 thì phương trình vô ngiệm, kết thúc;

B4: D=0 thì phương trình có một nghiệm

X<- -b/2a, kết thúc;

B5: D>0 thì phương trình có hai nghiệm, kết thúc;

ý b:

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;

8 tháng 2 2022

1:

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x%5==0) dem++;

}

cout<<dem;

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}

21 tháng 10 2021

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long n,x,i,t1,t2;

int main()

{

cin>>n;

t1=0; t2=0;

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

{

cin>>x;

if (x%2==0) t1=t1+x;

else t2=t2+x;

}

cout<<t1<<" "<<t2;

return 0;

}

30 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,nn;

int main()

{

cin>>n;

int dem=0;

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

{

cin>>x;

if (x==0) dem++;

}

cout<<dem;

return 0;

}

1 tháng 11 2021

Input:N nguyên dương ,dãy A gồm N số nguyên A1,A2,...An, số nguyên k

Output:- số lg các số bằng 0 trong dãy

- slg các số chẵn trong dãy

Tổng các số là bội của k trong dãy 

- số lg các số các số bằng k tong dãy

+minh hoạ: N=8

....

 

23 tháng 10 2016

minh ghi bị nhầm cho dãy A gồm N số nguyên a1, a2...aN . trong dãy A có bao nhiêu phần tử là số lẻ , tính tống các phần tử lẽ đó.

23 tháng 10 2016

var s,a1,an,n,c:integer;

begin

s:=0;

c:=0

write('nhap a1,an ');

read(n);

for i:=a1 to an do

if i mod 2=0 then

begin

s:=s+i;

c:=c+1;

end;

write ('so so thoa ycdb la : ',c);

write ('tong so thoa ycdb la : ',s);

readln

end.

 

14 tháng 11 2021

2:

#include <bits/stdc++.h>

using namespace std;

long long a[100],n,i,t,k;

int main()

{

cin>>n>>k;

t=0;

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

{

cin>>x;

if (x%k==0) t=t+x;

}

cout<<t;

return 0;

}