Viết chương trình nhập N số nguyên từ bàn phím với N<100
Hãy in ra số dương của dãy số và tính trb của dãy số và tính trb các số dương
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.
Những câu hỏi liên quan
28 tháng 2 2022
#include <bits/stdc++.h>
using namespace std;
long long a[100],i,n,t1,t,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
cout<<"Cac so duong la: ";
dem=0;
t=0;
for (i=1; i<=n; i++)
if (a[i]>0)
{
cout<<a[i]<<" ";
t+=a[i];
dem++;
}
cout<<endl;
t1=0;
for (i=1; i<=n; i++) t1+=a[i];
cout<<"trung binh day so la: "<<fixed<<setprecision(2)<<(t1*1.0)/(n*1.0)<<endl;
cout<<"Trung binh cac so duong la: "<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);
return 0;
}
28 tháng 2 2022
uses crt;
var a:array[1..100]of integer;
i,n,t,dem1,t1:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Trung binh cua day la: ' ,t/n:4:2);
t1:=0;
dem1:=0;
for i:=1 to n do
if a[i]>0 then
begin
t1:=t1+a[i];
inc(dem1);
end;
writeln('Trug binh cac so duong la: ',t1/dem1:4:2);
readln;
end.
ML
17 tháng 5 2021
Program HOC24;
var n,d,i: integer;
B: array[1..100] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
d:=0; t:=0;
for i:=1 to n do
if b[i]>0 then
begin
d:=d+1;
t:=t+b[i];
end;
writeln('Tong cac so duong trong day so la: ',t);
write('Co ',d,' so duong trong day');
readln
end.
7 tháng 6 2021
uses crt;
var b:array[1..100] of longint;
n,i,d,s:longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(b[i]);
if b[i]>0 then begin
inc(d);
inc(s,b[i]);
end;
end;
writeln('Tong cac so duong: ',s);
writeln('Co ',d,' so duong');
readln;
end.
N
23 tháng 5 2022
program trungbinh;
uses crt;
var n,i: integer;
s:real;
A: array[1..1000] of integer;
begin
clrscr;
write('Nhap do dai day: '); readln(n);
writeln('Nhap gia tri cua day: ');
S:=0;
for i:=1 to n do
begin
write('A[',i,']= ');
readln(A[i]);
S:=S+A[i];
end;
S:=S/n;
write('Trung binh cua cac so cua day do la: ',S);
readln;
end.
7 tháng 5 2023
program TinhTBCTimSoNT;
var
ten, lop: string;
n, i, tong, dem: integer;
A: array [1..11] of integer;
trung_binh: real;
function LaSoNguyenTo(x: integer): boolean;
var
i: integer;
begin
if x < 2 then
LaSoNguyenTo := false
else if x = 2 then
LaSoNguyenTo := true
else if x mod 2 = 0 then
LaSoNguyenTo := false
else
begin
i := 3;
while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
i := i + 2;
LaSoNguyenTo := x mod i <> 0;
end;
end;
begin
// Nhập tên và lớp của học sinh
write('Nhập tên của học sinh: ');
readln(ten);
write('Nhập lớp: ');
readln(lop);
// Nhập dãy số nguyên và tính trung bình cộng
repeat
write('Nhập số phần tử của dãy số (n<12): ');
readln(n);
until n < 12;
tong := 0;
for i := 1 to n do
begin
write('Nhập phần tử thứ ', i, ': ');
readln(A[i]);
tong := tong + A[i];
end;
trung_binh := tong / n;
// In tên, lớp, dãy số và trung bình cộng ra màn hình
writeln('Học sinh: ', ten);
writeln('Lớp: ', lop);
write('Dãy số: ');
for i := 1 to n do
write(A[i], ' ');
writeln;
// In các số nguyên tố của dãy số ra màn hình
writeln('Các số nguyên tố của dãy số:');
for i := 1 to n do
if LaSoNguyenTo(A[i]) then
writeln(A[i]);
end.
17 tháng 5 2021
Bạn Akai làm thiếu rồi, mình xin bổ sung một chút cho nó hoàn thiện bài nhé:
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2,t3: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
write(a[i]:4);
writeln;
t1:=0;
t2:=0;
t3:=0;
for i:=1 to n do
begin
if a[i]>0 then t1:=t1+a[i];
if a[i] mod 2<>0 then t2:=t2+a[i];
if a[i] mod 2=0 then t3:=t3+a[i];
end;
writeln('Tong cac so duong la: ',t1);
writeln('Tong cac so le la: ',t2);
writeln('Tong cac so chan la: ',t3);
readln;
end.
20 tháng 4 2022
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);
writeln;
t:=0;
for i:=1 to n do
if a[i]>0 then t:=t+a[i];
writeln(t);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,t,dem1,t1:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Trung binh cua day la: ' ,t/n:4:2);
t1:=0;
dem1:=0;
for i:=1 to n do
if a[i]>0 then
begin
t1:=t1+a[i];
inc(dem1);
end;
writeln('Trug binh cac so duong la: ',t1/dem1:4:2);
readln;
end.