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.

25 tháng 10 2021

program Tin_hoc;

Uses crt;

var i,n,k,dem:integer;

     a;array[1..10000] of integer;

Begin

clrscr;

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

writeln('Nhap ',n,' pha tu cua day A:');

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

dem:=0;

write('Nhap k: ');readln(k);

for i:= 1 to n do if a[i] = k then inc(dem);

writeln('Day A co ',dem,' ki tu ',k,);

readln;

end.

25 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x==50) dem++;

}

cout<<dem;

return 0;

}

27 tháng 10 2021

a: #incldue <bits/stdc++.h>

using namespace std;

long long i,n,x,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if (x>0) t=t+x;

}

cout<<t;

return 0;

}

uses crt;

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

i,n,dem,k:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

dem:=0;

for i:=1 to n do 

  if a[i]=k then inc(dem);

writeln('Trong day co ',dem,' phan tu co gia tri bang ',k);

readln;

end.

2 tháng 2 2021

 vậy???

 

26 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x==27) dem++;

}

cout<<dem;

return 0;

}

27 tháng 10 2021

a)

Input: số nguyên dương n và dãy số A1,A2,...,An

Output: Số phần tử có giá trị bằng 27

b) Thuật toán liệt kê:

Bước 1: Nhập n và dãy A1,A2,..,An

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

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

Bước 4: Nếu Ai = 27 thì Dem←Dem+1;

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

17 tháng 11 2022

loading...

25 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x==50) dem++;

}

cout<<dem;

return 0;

}

27 tháng 10 2021

đọc toàn kí tự vậy b

31 tháng 12 2021

Trình đọc Chân thực

Dấu này là sao

có lẽ là thi :)

20 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long n,x,k,i,dem;

int main()

{

cin>>n>>k;

dem=0;

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

{

cin>>x;

if (x==k) dem=dem+1;

}

cout<<dem;

return 0;

}

uses crt;

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

i,n,dem,dem1,dem2,t:integer;

s:real;

begin

clrscr;

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

for i:=1 to n do 

begin

repeat

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

until a[i]>0;

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

  if a[i]>10 then inc(dem);

writeln('So phan tu lon hon 10 la: ',dem);

dem1:=0;

dem2:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

end;

writeln('So luong so chan la: ',dem1);

writeln('So luong so le la: ',dem2);

t:=0;

s:=1;

for i:=1 to n do 

  begin

if (i mod 2=0) and (a[i] mod 2<>1) then t:=t+a[i];

if (i mod 2=1) and (a[i] mod 2=0) then s:=s*a[i];

end;

writeln('Tong cac so o vi tri chan co gia tri le la: ',t);

writeln('Tich cac so o vi tri le co gia tri chan la: ',s:4:2);

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 chan va lon hon 10 la: ');

for i:=1 to n do 

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

readln;

end.

18 tháng 2 2021

Thank you