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.

5 tháng 10 2021

uses crt;

var i,n,n,d; integer;

A: array[1..32000] of integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

readln(a[i]);

readln(m);

for i:=1 to n do

if a[i] = m then d:=d+1;

write(d);

readln;

end.

a:

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[10000];

int main()

{

cin>>n;

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

cin>>a[i];

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

cout<<a[i]<<" ";

return 0;

}

19 tháng 11 2021

bạn hỏi khó thế, đây mới là phần cho lớp 8 thôi mà

uses crt;

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

i,n,k,h,dem,t,dem1,dem2,t1,t2:integer;

begin

clrscr;

for i:=1 to 100 do 

  begin

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

end;

n:=100;

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

for i:=1 to n do 

  if a[i]=k then write(i:4);

writeln;

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

dem:=0;

for i:=1 to n do 

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

writeln(h,' xuat hien ',dem,' lan trong mang');

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac phan tu cua day la: ',t);

dem1:=0;

t1:=0;

dem2:=0;

t2:=0;

for i:=1 to n do 

  begin

if a[i]>0 then

begin

inc(dem1);

t1:=t1+a[i];

end;

if a[i]<0 then 

begin

inc(dem2);

t2:=t2+a[i];

end;

end;

writeln('Co ',dem1,' so duong');

writeln('Tong cac so duong la: ',t1);

writeln('Co ',dem2,' so am');

writeln('Tong cac so am la: ',t2);

readln;

end. 

8 tháng 4 2021

bằng c++ hay pascal?

 

6 tháng 5 2022

a chị ơi giúp em với ạ

 

c: 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

cin>>n;

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

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

if (a[i]%2==0) cout<<a[i]<<" ";

return 0;

}

d: 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,nn;

int main()

{

cin>>n;

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

nn=a[1];

for (i=1; i<=n; i++) nn=min(nn,a[i]);

cout<<nn;

return 0;

}

Bài 1: 

uses crt;

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

i,n:integer;

begin

clrscr;

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 a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

Bài 2: 

uses crt;

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

i,n:integer;

begin

clrscr;

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 a[i] mod 2=0 then write(a[i]:4);

readln;

end.

1 tháng 8 2021

Program HOC24;

var n,a,i,d: integer;

x: array[1..32000] of integer;

begin

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,': '); readln(x[i]);

end;

write('Nhap A: '); readln(a);

d:=0;

for i:=1 to n do if x[i]=a then d:=1;

if d=1 then write(A,' xuat hien trong day') else write(A,' khong xuat hien trong day');

readln

end.

1 tháng 8 2021

uses crt;

var n,i,a1:integer;

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

begin

writeln('nhap n'); readln(n);

writeln('nhap a'); readln(a1);

for i:=1 to n do

begin

readln(a[i]);

if (a[i]=a1) then

begin

write(' so a co xuat hien trong day');

break;

end;

if (i<n) then  continue;

writeln('Khong co so a trong day');

end;

readln;

end.

28 tháng 4 2023

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

i,n,d:integer;

s:longint;

tbc:real;

begin

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

For i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

s:=s+a[i];

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

end;

tbc:=s/n;

writel('Co ',d,' so chan');

write('Trung binh cong cua day so la ',tbc:10:2);

readln

end.