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.

28 tháng 4 2017

uses crt;

var i, n, s: integer;

tb: real;

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

begin

write('nhap so n:'); readln(n);

for i:=1 to n do

s:= s + a[i];

tb:= s/n;

writeln(' trung binh cua day so la:', tb:4:2);

readln

end.

begin

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

end;

for i:=1 to n do


28 tháng 4 2017

uses crt;

var i, n, s: integer;

tb: longint;

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

begin

write('nhap so n:'); readln(n);

for i:=1 to n do

begin

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

end;

for i:=1 to n do

s:= s+a[i];

tb:= s/n;

writeln(' trung binh cua day so la: ', tb:4:2);

readln

end.


uses crt;

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

i,n,t1,t2,dem1,dem2:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

writeln('Day so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t1:=0;

dem1:=0;

t2:=0;

dem2:=0;

for i:=1 to n do 

 begin

if a[i] mod 2=0 then

begin

t1:=t1+a[i];

inc(dem1);

end

else begin

t2:=t2+a[i];

inc(dem2);

end;

end;

writeln('Trung binh cac so chan la: ',t1/dem1:4:2);

writeln('Trung binh cac so le la: ',t2/dem2:4:2);

readln;

end.

1:

#include <bits/stdc++.h>

using namespace std;

long long n=10, a[10],i,nn;

int main()

{

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

nn=a[1];

for (i=2; i<=n; i++) nn=min(nn,a[i]);

cout<<nn;

return 0;

}

Bai 2:

uses crt;

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

i,n,t,nn:integer;

begin

clrscr;

readln(n);

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

nn:=a[1];

for i:=1 to n do

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

write(nn);

readln;

end.

uses crt;

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

i,t:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

write('Nhap diem cua ban thu ',i,':'); readln(a[i]);

end;

t:=0;

for i:=1 to 6 do 

  t:=t+a[i];

writeln('Tong diem trung binh la: ',t);

writeln('Diem trung binh cua day la: ',t/6:4:2);

readln;

end.

2 tháng 3 2021

Program HOC24;

var i,n,d: integer;

t: real;

function nt(b: longint): boolean;

var j: longint;

begin

nt:=true;

if (b=2) or (b=3) then exit;

nt:=false;

if (b=1) or (b mod 2=0) or (b mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(b)) do

begin

if (b mod j=0) or (b mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

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

for i:=1 to n do 

begin

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

end;

t:=0; d:=0;

for i:=1 to n do if nt(a[i]) then

begin

t:=t+a[i];

d:=d+1;

end;

write('Trung binh cong cac so nguyen to trong day: ',t/d:1:2);

readln

end.

Cách 2: 

uses crt;

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

i,n,t,dem,j,kt:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

t:=0;

dem:=0;

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to a[i]-1 do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then 

begin

t:=t+a[i];

inc(dem);

end;

end;

writeln('Trung binh cong cac so nguyen to la: ',t/dem:4:2);

readln;

end.

20 tháng 4 2023

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)

23 tháng 4 2023
Để tính tổng các phần tử trong dãy, ta có thể sử dụng vòng lặp for để duyệt qua từng phần tử và cộng dồn vào một biến tổng. Ví dụ:

n = int(input("Nhap so phan tu cua day: "))

a = []

for i in range(n):

     a.append(int(input("Nhap phan tu thu {}: ".format(i+1))))

tong = 0

for elem in a:

     tong += elem

print("Tong cua day la: ", tong)

Để đếm số lượng số âm trong dãy và tính tổng các số âm đó, ta có thể sử dụng một biến đếm để đếm số lượng số âm và một biến tổng để cộng dồn các số âm. Ví dụ:

n = int(input("Nhap so phan tu cua day: "))

a = []

for i in range(n):

     a.append(int(input("Nhap phan tu thu {}: ".format(i+1))))

so_luong_am = 0

tong_am = 0

for elem in a:

      if elem < 0:

           so_luong_am += 1

           tong_am += elem

print("So luong so am trong day la: ", so_luong_am)

print("Tong cac so am trong day la: ", tong_am)

 

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

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

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

 

readln;

end.

Bài 1: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

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

readln;

end.

Bài 2: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do

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

readln;

end.