Viết chương trình nhập n số nguyên và tính trung bình cộng
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
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.
Viết chương trình nhập 2 số m và n kiểu số nguyên .Tính và in ra hình trung bình cộng của 2 số
#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;
}
viết chương trình nhập hai số nguyên m,n sau đó tính trung bình cộng bình phương các số nguyên tử m đến n
viết chương trình nhập n số nguyên từ bàn phím. tính và in ra trung bình cộng các số chia hết cho 5 và 7
Viết chương trình cho phép nhập số n số nguyên và cho biết giá trị lớn nhất. Tính giá trị trung bình cộng các số
uses crt;
var a:array[1..100]of integer;
i,n,max,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(max);
writeln(t/n:4:2);
readln;
end.
Viết chương trình cho phép nhập số n số nguyên và cho biết giá trị lớn nhất. Tính giá trị trung bình cộng các số
uses crt;
var a:array[1..100]of integer;
i,n,max,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(max);
writeln(t/n:4:2);
readln;
end.
viết chương trình nhập 1 dãy số nguyên gồm n phần tử, tính trung bình cộng dãy số vừa nhập (n đc nhập từ bàn phím) trong thony
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)
Viết chương trình nhập vào mảng dãy số n số phần tử nguyên và cho biết có bao nhiêu dãy số là chẵn? Tính trung bình cộng của dãy số còn nhập
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.
em hãy viết chương trình tính trung bình cộng của 2 số nguyên m và n. giá trị của m và n được nhập vào từ bàn phím
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.
Viết chương trình nhập vào một mảng gồm N số nguyên. Tính và thông báo các số chẵn, tổng số và trung bình cộng của các số chẵn đó
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.