nhập n số, các bước tính tổng các số dương trong n số
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.
N
NMĐ~NTTT
3 tháng 3 2021
Đây là bài làm tương tự nhé!
Đúng(0)
Những câu hỏi liên quan
5 tháng 3 2021
uses crt;
var a:array[1..100]of integer;
i,n:integer;
s:real;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
s:=1;
for i:=1 to n do
s:=s*a[i];
writeln(s:0:0);
readln;
end.
19 tháng 5 2021
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;
t1:=0;
for i:=1 to n do
if a[i]<0 then t1:=t1+a[i];
writeln('Tong cac so am la: ',t1);
t2:=0;
for i:=1 to n do
if a[i] mod 2=0 then t2:=t2+a[i];
writeln('Tong cac so chia het cho 2 la: ',t2);
t3:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 3=0) then t3:=t3+a[i];
writeln('Tong cac so duong chia het cho 3 la: ',t3);
readln;
end.
10 tháng 5 2022
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,t1,t2,t3;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t1=0;
t2=0;
t3=0;
for (i=1; i<=n; i++)
{
t1+=a[i];
if (a[i]<0) t2+=a[i];
if (a[i]>0) t3+=a[i];
}
cout<<t1<<endl;
cout<<t2<<endl;
cout<<t3;
return 0;
}
6 tháng 11 2024
Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
Clrscr;
Writeln(' Phan A ');
Write(' Ban hay nhap 1 so n bat ky: ');
Readln(n);
Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
For i:=1 to n do
If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
Write(' Ban hay nhap 1 so m bat ky: ');
Readln(m);
For i:=1 to m do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
S:= S+A[i];
End;
Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
Write(' Ban hay nhap 1 so d bat ky: ');
Readln(d);
Write(' Ban hay nhap so K: ');
Readln(k);
For i:=1 to n do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
If ((A[i] div k)=1)then t:=t+1;
End;
Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.
BD
2
KV
9 tháng 3 2023
Var i,n,s:integer;
Begin
While n<=0 do
Write('N = ');readln(n);
For i:=1 to n do
If n mod i = 0 then s:=s+i;
Write('Tong cac uoc cua ',n,' la ',s);
Readln;
End.
9 tháng 3 2023
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,t=0;
cin>>n;
for (int i=1; i<=n; i++)
if (n%i==0) t+=i;
cout<<t;
return 0;
}
23 tháng 4 2021
Mình chỉ viết chương trình chính thôi, còn chương trình con bạn tự viết nhé
uses crt;
var a:array[1..100]of integer;
i,n,t,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
edn;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
21 tháng 12 2020
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chan la: ');
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i]:4);
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so chan la: ',t);
writeln('Trong day co ',dem,' so chan');
readln;
end.