Program HOC24;

var i,n: integer;

x: array[1..1000] of real;

tbc: real;

begin

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

for i:=1 to n do

begin

write('x[',i,']='); readln(x[i]);

end;

tbc:=0;

for i:=1 to n do tbc:=tbc+x[i];

tbc:=tbc/n;

write('Trung binh cong la: ',tbc:6:2);

readln

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

i:=1;

while i<=n do 
  begin

t:=t+a[i];

inc(i);

end;

writeln(t/n:4:2);

readln;

end.

program tinhtong;

uses crt;

var i, n, s: integer;

begin clrscr;

Write('N so tu nhien dau tien la: ');

readln(n);

s:=0;

i:=1;

while i<=n do begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cac so la: ',s);

readln

end.

giúp mình câu này luôn nhé

In ra màn hình trung bình của cấc số đã cho ở trên.
liên quan bài trên 

uses crt;

var n,i,t,x:integer;

begin

clrscr;

readln(n);

t:=0;

while n>0 do 

begin

x:=n mod 10;

if x mod 2=0 then t:=t+x;

n:=n div 10;

end;

writeln(t);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

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

cout<<t;

return 0;

}

n = int(input("Nhap n: "))
sum_even = 0
for i in range(2, n+1, 2):
    sum_even += i
print("Tong cac so chan lien tiep den", n, "la:", sum_even)

python ha:0?

dđúng ko v bạn

program DemSoChiaHetCho5;
var
  n, i, count: integer;
begin
  write('Nhap n: ');
  readln(n);
  
  i := 1;
  count := 0;
  while i <= n do
  begin
    if i mod 5 = 0 then
      count := count + 1;
    i := i + 1;
  end;
  
  writeln('Co ', count, ' so tu nhien chia het cho 5 trong khoang tu 1 den ', n);
end.

cảm ơn ạ