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.

26 tháng 2 2021

Program HOC24;

var d,i,n,x: integer;

t: longint;

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

begin

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

for i:=1 to n do

begin

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

end;

write('Chi so cac phan tu co gia tri bang 0 la: '); 

for i:=1 to n do if a[i]=0 then write(i,' ');

writeln;

d:=0; t:=0;

write('Nhap X: '); readln(x);

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

writeln('Co ',d,' phan tu co gia tri lon hon ',x);

if n=20 then

begin

for i:=5 to 20 do t:=t+a[i];

end else write('Du lieu da cho chua du 20 phan tu');

write('Tong cac phan tu co gia tri nam trong doan 5 den 20 la: ',t);

readln

end.

uses crt;

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

i,n,t,x,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

writeln('Chi so cac phan tu co gia tri bang 0 la: ');

for i:=1 to n do 

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

writeln;

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

dem:=0;

for i:=1 to n do 

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

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

t:=0;

for i:=1 to n do 

  if (5<=a[i]) and (a[i]<=20) then t:=t+a[i];

writeln(t);

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;

}

uses crt;

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

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

begin

clrscr;

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

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

dem:=0;

dem1:=0;

for i:=1 to n do 

begin

if b[i]<0 then inc(dem);

if b[i]>0 then inc(dem1);

end;

writeln('So phan tu am la: ',dem);

writeln('So phan tu duong la: ',dem1);

t:=0;

for i:=1 to n do 

 if b[i]<>0 then t:=t+b[i];

writeln('Trung binh cac phan tu khac 0 trong mang la: ',t/(dem+dem1):4:2);

min:=b[1];

for i:=1 to n do

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

dem2:=0;

for i:=1 to n do 

  if min=b[i] then

begin

 inc(dem2);

a[dem2]:=i;

end;

writeln('Gia tri nho nhat la: ',min);

writeln('Chi so la: ');

for i:=1 to dem2 do 

  write(a[i]:4);

readln;

end.

11 tháng 5 2022

Nhập mảng n<-100 số nguyên. Tính tống các phần tử lớn nhất trong mảng và xuất ra vị trí của các phần tử lớn nhất trong mảng, viết chương trình sau.Giúp em với ạ.

24 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a[6],i,t,t1;

int main()

{

t=0;

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

{

cin>>a[i];

if (a[i]%2==0) t=t+a[i];

}

t1=0;

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

if ((a[i]%2!=0) and (i%2==0)) t1=t1+a[i];

cout<<t<<endl;

cout<<t1;

return 0;

}

uses crt;

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

i,n,dem,t,t1,t2,t3,t4:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=250);

for i:=1 to n do 

  begin

repeat

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

until (0<a[i]) and (a[i]<=500);

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=1 then inc(dem);

writeln('So phan tu co gia tri le la: ',dem);

t:=0;

for i:=1 to n do 

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

writeln('Tong cac phan tu co chi so chan la: ',t);

t1:=0;

for i:=1 to n do 

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

writeln('Tong cac phan tu co chi so le la: ',t1);

t2:=0;

for i:=1 to n do 

  if (i mod 2=0) and (a[i] mod 2=0) then t2:=t2+a[i];

writeln('Tong cac phan tu chan co chi so chan la: ',t2);

t3:=0;

for i:=1 to n do 

  if (i mod 2=1) and (a[i] mod 2=1) then t3:=t3+a[i];

writeln('Tong cac phan tu co chi so le la: ',t3);

t4:=0;

for i:=1 to n do 

  t4:=t4+a[i];

writeln('Trung binh cong cac so trong day la: ',t4/n:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem,t;

int main()

{

cin>>n;

dem=0;

t=0;

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

{

cin>>x;

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

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

}

cout<<"Tong cac so chan la: "<<t<<endl;

cout<<"So luong phan tu chia het cho 3 la: "<<dem;

return 0;

}

16 tháng 12 2022

#include <bits/stdc++.h>

using namespace std;

int A[500],n,i,dem,dem1;

int main()

{

cin>>n;

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

for (int i=n; i>=1; i--) cout<<A[i]<<" ";

cout<<endl;

dem=0;

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

if (A[i]<10) dem++;

cout<<dem<<endl;

dem1=0;

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

if (A[i]>1)

{

bool kt=true;

for (int j=2; j*j<=A[i]; j++)

if (A[i]%j==0) kt=false;

if (kt==true) dem1++;

}

cout<<dem1;

return 0;

}

24 tháng 8 2021
Uses crt;

Var i,k,n,bk,tong: integer;

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

Begin

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

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

for i:=1 to n do

begin

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

end;

{câu a}

For i:=1 to n do 

if a[i]=k then bk:=bk+1;

writeln('Co so phan tu bang k la:',k);

{câu b}

For i:=1 to n do 

if a[i]=k then

begin

write(i,' ');

tong:=tong+a[i];

end;

write('. Tong la:',tong);

readln

end.

31 tháng 8 2021

uses crt;
var k,n,tong,d,i:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('n=');readln(n);
  write('k=');readln(k);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
        end;
  d:=0;
  for i:=1 to n do if(a[i]=k)then inc(d);
  writeln('so phan tu bang voi:',k,' la:',d);
  write('cac so co vi tri bang voi:',k,' la:');
  tong:=0;
  for i:=1 to n do if(a[i]=k)then
        begin
         write(i,' ');
         tong:=tong+a[i];
        end;
  write('tong cua cac so bang voi:',k,' la:',tong);
 readln;
end.

30 tháng 3 2023

A = [ ]

N = int(input("Nhập số phần tử của mảng: "))

for i in range(N):

     A.append(int(input("Nhập phần tử thứ %d: " % (i+1))))

count = 0

for i in range(N):

     if A[i] == 8:

          count += 1

print("Số lượng phần tử có giá trị bằng 8 là: ", count)