Lập trình thực hiện các công việc sau và hiển thị kết quả ra màn hình:

A,Nh...">

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..200]of integer;

n,i,k,t,t1: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);

t:=0;

for i:=1 to n do 

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

t1:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t1:=t1+a[i];

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

writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);

readln;

end.

18 tháng 12 2021

Câu 3: Nhập một mảng gồm N phần tử.

A, tính tổng chẵn, tổng lẻ của các phấn tử trong mảng.

B, Tìm phần tử lớn nhất, nhỏ nhất trong mảng.

C, Tìm kiếm xem phần tử K nào đó có tồn tại trong mảng hay không?

 

 

uses crt;

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

n,i,k,dem,dem1: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;

dem1:=0;

for i:=1 to n do 

  begin

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

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

end;

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

writeln('So phan tu chia het cho ',k,' la: ',dem1);

readln;

end.

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long a[250],i,n,k;

int main()

{

cin>>n>>k;

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

cin>>a[i];

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

if (a[i]==k) cout<<i<<" ";

return 0;

}

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long a[250],i,n,k;

int main()

{

cin>>n>>k;

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

cin>>a[i];

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

if (a[i]==k) cout<<i<<" ";

return 0;

}

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long a[250],i,n,k;

int main()

{

cin>>n>>k;

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

cin>>a[i];

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

if (a[i]==k) cout<<i<<" ";

return 0;

}

20 tháng 12 2021

#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;

}

26 tháng 2 2023

# Nhap mang

arr = [ ]

for i in range(10):

     arr.append(int(input('Nhap phan tu: ')))

 

# Tinh va xuat ra tong cac phan tu le trong mang tong_cac_phan_tu_le = 0

for x in arr:

     if x % 2 != 0:

          tong_cac_phan_tu_le += x

print('Tong cac phan tu le trong mang la:', tong_cac_phan_tu_le)

 

# Nen va xuat ra ngoai man hinh so phan tu duong trong mang so_phan_tu_duong = 0

for x in arr:

     if x > 0:

          so_phan_tu_duong += 1

print('So phan tu duong trong mang la:', so_phan_tu_duong)

 

# Tinh va xuat ra man hinh trung binh cong cac phan tu trong mang tong_phan_tu = 0

for x in arr:

          tong_phan_tu += x

trung_binh_cong = tong_phan_tu / len(arr)

print('Trung binh cong cac phan tu trong mang la:',trung_binh_cong)

 

# Tim va xuat ra man hinh gia tri va vi tri cua cac phan tu nho nhat trong mang

min_phan_tu = arr[0]

vi_tri_min_phan_tu = 0

for i in range(1, len(arr)):

     if min_phan_tu > arr[i]:

          min_phan_tu = arr[i]

           vi_tri_min_phan_tu = i

print('Gia tri cua phan tu nho nhat trong mang la:', min_phan_tu)

print('Vi tri cua phan tu nho nhat trong mang la:', vi_tri_min_phan_tu)

      

#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++) cout<<a[i]<<"     ";

cout<<endl;

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

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

cout<<endl;

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

  if (a[i]>0) cout<<a[i]<<" ";

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

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

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

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

return 0;

}

uses crt;

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

m,n,t,min,vt:integer;

begin

clrscr;

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

for i:=1 to m do 

  begin

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

end;

for i:=1 to m do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to m do 

  t:=t+a[i];

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

min:=a[1];

for i:=1 to n do 

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

vt:=0;

for i:=1 to n do 

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

writeln('So nho nhat la: ',min);

writeln('So lan xuat hien la: ',vt);

readln;

end.