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.
1:
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
tb:real;
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]>0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so duong la: ',t);
writeln('So luong cac so duong la: ',dem);
tb:=t/dem;
writeln('Trung binh cong cac so duong la: ',tb:4:2);
readln;
end.
2:
uses crt;
var n,i,s:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
t:=1;
for i:=1 to n do
begin
s:=s+i;
t:=t*i;
end;
writeln('Tong cua day so tu 1 toi ',n,' la: ',s);
writeln('Tich cua day so tu 1 toi ',n,' la: ',t);
readln;
end.
a:
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n;i++)
{
cin>>x;
t=t+x;
}
cout<<t;
return 0;
}
1) Đề chưa rõ ràng!
2) var a:array[1..1000] of real;
i,n:integer;
min:real;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if a[i] < min then min:=a[i];
write('So nho nhat trong day la ',min:10:2);
readln
end.
Input :n,dãy A
Output: Tổng A( điều kiện phần tử A>= 0)
B1: Nhập n
B2: Nhập các phần tử
B3:Xét a1;a2;a3;...an >= 0 Nếu phần tử nào dương thì chuyển qua một danh sách
B4 S-< a1,a2,...an;
B5: Kết thúc thuật toán
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;
for i:=1 to n do
if a[i]>0 then t:=t+a[i];
writeln('Tong cac so duong la: ',t);
readln;
end.