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.

QT
Quoc Tran Anh Le
Giáo viên
23 tháng 8 2023

tb = sum(A) / len(A)

print(tb)

26 tháng 12 2021

a/ =SUM(A1:A5)=29

    =SUM(A1,A2,A3,A4,A5)=29

b/ =MAX(A1:A5)=9

     =MAX(A1,A2,A3,A4,A5)=9

26 tháng 12 2021

giúp mik với

9 tháng 4 2016

to tbc
cs
make "n 1
make "dem 1
make "s 0
while [:dem<101][make "s :s + :n make "n :n + 4 make "dem :dem + 1]
make "tb :s/(:dem - 1)
rt 90 label[Trung binh cong la:] pu fd 200 pd label :tb ht
end

9 tháng 4 2016

to tbc
cs
make "n 1
make "dem 1
make "s 0
while [:dem<101][make "s :s + :n make "n :n + 4 make "dem :dem + 1]
make "tb :s/(:dem - 1)
rt 90 label[Trung binh cong la:] pu fd 200 pd label :tb ht
end

23 tháng 2 2023

Bài 1

Var s,i:integer;

tb:real;

Begin

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

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

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

Readln;

End.

23 tháng 2 2023

Bài 2

Var i,n,souoc:integer;

Begin

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

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

uses crt;

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

t,i,n:integer;

begin

clrscr;

write('Nhap do dai cua day:'); readln(n);

for i:=1 to n do 

begin

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

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Gia tri trung binh cua day la: ',t/n:4:2);

readln;

end.

7 tháng 3 2023

Program HOC24;

var i,n: byte;

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

t: longint;

begin

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

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

tbc:=0; t:=0;

end;

for i:=1 to n do t:=t+a[i];

writeln('Tong la :',t);

write('Trung binh cong cac phan tu la: ',t/n:5:2);

readln

end.

uses crt;

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

i,n,t,ln,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

nn:=a[1];

ln:=a[1];

for i:=1 to n do 

begin

t:=t+a[i];

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

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

end;

writeln(t);

writeln(ln);

writeln(nn);

writeln(t/n:4:2);

readln;

end.

24 tháng 12 2021

Câu 35: B

Câu 36: D