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.

uses crt;

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

i,n,min,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

dem:=0;

for i:=1 to n do 

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

writeln('So phan tu co gia tri nho nhat trong day la: ',dem);

readln;

end.

uses crt;

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

i,n,min,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

dem:=0;

for i:=1 to n do 

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

writeln('So phan tu co gia tri nho nhat trong day la: ',dem);

readln;

end.

5 tháng 1 2021

Mọi người làm nhanh hộ ạ, em đang cần gấp ạ, phiền mọi người ạ

 

10 tháng 12 2021

huhu giúp với ạ cần gấp lắm

10 tháng 12 2021

1:

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

15 tháng 12 2020

Bạn nào giỏi về cái này giúp mình với ạ

 

15 tháng 12 2020

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

writeln('Day A=');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

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

writeln('Tong cac so chan la: ',t);

readln;

end.

19 tháng 10 2021

a: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;
}

23 tháng 12 2020

uses crt;

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

i,n,tc,tl,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

tc:=0;

tl:=0;

for i:=1 to n do 

  begin

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

else tl:=tl+a[i];

end;

writeln('Tong cac so chan la: ',tc);

writeln('Tong cac so le la: ',tl);

t:=0;

for i:=1 to n do  

t:=t+a[i];

writeln('Tong cua day so la: ',t);

readln;

end. 

14 tháng 5 2022

code c++ di ban

 

4 tháng 4 2023

cứu m vs

 

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.