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.

17 tháng 12 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%2!=0) dem++;

}

cout<<dem;

return 0;

}

viết chương trình nhập mảng một chiều gồm n phần tử n<=100 kiểu nguyên rồi thực hiện (nhập từ bàn phím hoặc nhập ngẫu nhiên)a. Đếm số lượng phần tử dương cho kết quả ra màn hìnhb. Tính tổng các phần tử dương trong mảngc. Tính trung bình các phần tử trong mảngd. Tính trung bình các phần tử dương trong mảnge. Tìm vị trí đầu tiên cảu phần tử =k với k nhập từ bàn phímf. Tìm vị trí phần tử =k với k...
Đọc tiếp

viết chương trình nhập mảng một chiều gồm n phần tử n<=100 kiểu nguyên rồi thực hiện (nhập từ bàn phím hoặc nhập ngẫu nhiên)

a. Đếm số lượng phần tử dương cho kết quả ra màn hình

b. Tính tổng các phần tử dương trong mảng

c. Tính trung bình các phần tử trong mảng

d. Tính trung bình các phần tử dương trong mảng

e. Tìm vị trí đầu tiên cảu phần tử =k với k nhập từ bàn phím

f. Tìm vị trí phần tử =k với k nhập từ bàn phím, nếu có nhiều phần tử =k thì hiển thị ra màn hình tất cả vị trí phần tử =k đó.

g. Đếm số lượng phần tử là nguyên tố trong mảng.

h. Kiểm tra mảng vừa nhập có phải là cấp số cộng hay không?

i. Sắp xếp mảng theo thứ tự tăng dần các phần tử và hiển thị ra màn hình mảng tăng đó

1

uses crt;

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

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

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i]>0 then

begin

dem:=dem+1;

t:=t+a[i];

end;

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

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

writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long b[20],i,n;

int main()

{

cin>>n;

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

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

{

if ((b[i]%2!=0) or (i%2==0)) cout<<b[i]<<" ";

}

return 0;

}

5 tháng 3 2022

bạn viết rõ ra giùm mình đc kko 

BT1: Viết chương trình nhập vào một mảng gồm 10 phần tử số nguyên. In ra màn hình mảng vừa nhập và tính tổng các phần tử trong mảng. BT2: Viết chương trình nhập vào một mảng gồm 10 phần tử số thực. In ra màn hình các phần tử có chỉ số chẵn trong mảng. BT3: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình các phần tử có giá trị chẵn trong mảng. BT4: Viết...
Đọc tiếp

BT1: Viết chương trình nhập vào một mảng gồm 10 phần tử số nguyên. In ra màn hình mảng vừa nhập và tính tổng các phần tử trong mảng. BT2: Viết chương trình nhập vào một mảng gồm 10 phần tử số thực. In ra màn hình các phần tử có chỉ số chẵn trong mảng. BT3: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình các phần tử có giá trị chẵn trong mảng. BT4: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình phần tử có giá trị lớn nhất trong mảng. BT5: Viết chương trình nhập vào một mảng gồm n phần tử số thực. In ra màn hình chỉ số của phần tử nhỏ nhất trong mảng. BT6: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. Đếm xem trong mảng vừa nhập có bao nhiêu phần tử lẻ.

1

6:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],i,dem=0;

cin>>n;

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

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

if (A[i]%2!=0) dem++;

cout<<dem;

return 0;

}

5:

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n,nn=1e6,A[1000];

cin>>n;

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

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

nn=min(nn,A[i]);

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

if (nn==A[i]) cout<<i<<" ";

return 0;

}

15 tháng 3 2023

uses crt;

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

n,i:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Cac phan tu chan la: ');

for i:=1 to n do

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

readln;

end.

15 tháng 3 2023

mn giúp em với ạ uhuhu

 

Bài 1: 

uses crt;

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

i,n,kt,max,x,j,tam:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

writeln('Mang ban vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]>a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('Day tang dan la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

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

max:=0;

kt:=0;

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]<=x) then 

   begin

  if max<a[i] then max:=a[i];

kt:=1;

end;

if kt=0 then writeln('Trong day khong co so le')

else writeln('So chan lon nhat khong vuot qua ',x,' la: ',max);

readln;

end.

Bài 1:

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if ((x<0) and (x%2!=0)) t=t+x;

}

cout<<t;

return 0;

}

29 tháng 4 2023

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

i,n:integer;

s:longint;

Begin

Repeat

Write('n = ');readln(n);

Until (n>0) and (n<=100);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

If a[i] mod 2 = 0 then s:=s+a[i];

End;

Write('Tong cac so chan la ',s);

Readln

End.

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;

}

28 tháng 4 2023

program TrungBinhCong;
const
  MAX = 100;
var
  danhSach: array[1..MAX] of integer;
  n, i, tong: integer;
  trungbinh: real;
begin
  write('Nhap so ptu (toi da 100): ');
  readln(n);
  tong := 0;
  for i := 1 to n do
  begin
    write('Nhap giatri ptu thu ', i, ': ');
    readln(danhsach[i]);
    tong := tong + danhsach[i];
  end;
  trungbinh := tong / n;
  writeln('Tbc cua danh sach la: ', trungbinh:0:2);

  readln;
end.

29 tháng 4 2023

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

i,n:integer;

s:longint;

tbc:real;

Begin

Repeat

Write('n = ');readln(n);

Until (n>0) and (n<=100);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln

End.