Những câu hỏi liên quan
Khang Ngo
Xem chi tiết
Khang Ngo
20 tháng 4 2023 lúc 21:18

N=int(input(‘n=’))

A=[0]*n

For I in range(0,n):

A=int(input(a[‘+str(i+1)+’]=’))

S=s+a[i]

S1 =s/n

Print(s1)

Bình luận (0)
Đặng Thành Đạt
Xem chi tiết
Nguyễn Hoàng Minh
29 tháng 10 2021 lúc 9:44

#include <bits/stdc++.h>

using namespace std;

int m,n;

int main()

{

cin>>m>>n;

cout<<"Trung binh cong m va n la: "<<(m+n)/2;

Return 0;

}

Bình luận (0)
Nguyễn Thuận
Xem chi tiết
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:05

Bình luận (0)
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:05

Bình luận (0)
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 21:50

Câu 3: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n>1 then 

begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' la hop so');

end

else writeln(n,' khong la so nguyen to cung khong la hop so');

readln;

end.

Bình luận (1)
Anh Lê duy
Xem chi tiết
Chanh Xanh
29 tháng 11 2021 lúc 14:00

Tham khảo

 

uses crt;

var n,i,ta,td,d1,d2:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

td:=0;

d1:=0;

for i:=1 to n do

if a[i]>0 then

begin

td:=td+a[i];

inc(d1);

end;

writeln('Trung binh cong cac so duong la: ',td/d1:4:2);

d2:=0;

ta:=0;

for i:=1 to n do

if a[i]<0 then

begin

inc(d2);

ta:=ta+a[i];

end;

writeln('Trung binh cong cac so am la: ',ta/d2:4:2);

readln;

end.

Bình luận (0)
Nhân
Xem chi tiết
Ngô Bá Hùng
14 tháng 4 2023 lúc 21:33

# Nhập mảng A từ bàn phím
n = int(input("Nhập số lượng phần tử của mảng A: "))
A = []
for i in range(n):
    A.append(int(input("Nhập phần tử thứ {} của mảng A: ".format(i+1))))

# Tính trung bình cộng các phần tử chia hết cho 3 và 5
sum_35 = 0
count_35 = 0
for num in A:
    if num % 3 == 0 and num % 5 == 0:
        sum_35 += num
        count_35 += 1
if count_35 > 0:
    tb_35 = sum_35 / count_35
    print("Trung bình cộng các phần tử chia hết cho 3 và 5 trong mảng A là:", tb_35)
else:
    print("Không có phần tử nào chia hết cho cả 3 và 5 trong mảng A")

# In ra các phần tử chia hết cho M và tính tổng các phần tử chia hết cho M
M = int(input("Nhập giá trị M: "))
sum_M = 0
count_M = 0
for num in A:
    if num % M == 0:
        print(num, end=" ")
        sum_M += num
        count_M += 1
print("\nTổng các phần tử chia hết cho M trong mảng A là:", sum_M)

Bình luận (0)
Thư Huỳnhh
Xem chi tiết
Nguyễn Anh Dũng
9 tháng 12 2021 lúc 20:04

var m,n: integer;

begin

    writeln(' nhap so nguyen a: ');

    read(a);

    writeln(' nhap so nguyen b: ');

    read(b);

    writeln((m + n)/2);

    readln;

end.

Bình luận (0)
jennierubyjane
Xem chi tiết
Phía sau một cô gái
23 tháng 4 2023 lúc 22:21

program mang;

uses crt;

var

      N, i: integer;

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

      sum, average: double;

begin

      clrscr;

      write('Nhap so phan tu mang: ');

      readln(N);

      sum := 0;

      for i:= 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            sum := sum + a[i];

      end;

      writeln('Cac phan tu cua mang la:');

      for i:= 1 to N do

            write(a[i], ' ');

      average := sum / N;

      writeln('Tong cac phan tu cua mang la: ', sum:0:2);

      writeln('Trung binh cong cua mang la: ', average:0:2);

      readln;

end.

Bình luận (0)
Trần Vi Nam Khánh
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 15:17

#include <bits/stdc++.h>

using namespace std;

long long n,i,t,dem;

int main()

{

cin>>n;

t=0;

dem=0;

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

if (i%3==0)

{

t=t+i;

dem++;

}

cout<<t<<endl;

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}

Bình luận (0)
Nguyễn Thị Vân
Xem chi tiết
Kiều Vũ Linh
28 tháng 4 2023 lúc 11:24

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.

Bình luận (0)