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.
var i,n,tb :integer;
begin
readln(n);
tb:=0;
for i:=1 to n do tb:=tb+1;
writeln(tb);
end.
program CTTTB;
uses crt;
var TB,x:real; n,y: integer;
begin
Write('Hay nhap so so thuc ban can tinh TB'); Readln(n);
for y:=1 to n do
begin Write('Nhap so thu',y);Readln(x);
TB:=TB+x;
end;
TB:=TB/n;
Writeln('Trung binh cong cua',n,' so nhap vao tu ban phim la',TB);
Readln;
End.
var i,n,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln(s:3:0);
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
Program Search_Min;
Uses Crt;
Var i, N, Min: Integer;
A: array[1..100] of Integer;
Begin
Clrscr;
Write('Nhap do dai cua day so,N='); Readln(N);
Writeln('Nhap cac phan tu cua day so:');
For i:=1 to N do
Begin
Write('a[',i,']='); Readln(a[i]);
End;
Min:=a[1];
For i:=2 to N do
begin if Min>a[i] then Min:=a[i];
end;
Writeln('Gia tri Min:',Min);
Readln
End.