Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Trường
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 15:43

 

 

 

uses crt;

var a:array[1..100]of integer;

i,n,min:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

 

Trường
Xem chi tiết
Trường
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 22:43

uses crt;

var a:array[1..200]of real;

i,n:integer;

tb:real;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

tb:=0;

for i:=1 to n do tb:=tb+a[i];

writeln(tb/n:4:2);

readln;

end.

Trường
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 22:42

uses crt;

var a:array[1..100]of real;

i,n,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem:=0;

for i:=1 to n do

  if a[i]>=8 then inc(dem);

writeln(dem);

readln;

end.

hữu minh nguyễn
Xem chi tiết
datcoder
26 tháng 10 2023 lúc 11:42

Program HOC24;
var st,st1,st2: string;
i,n,d,k,j: integer;
t,m: longint;
a: array[1..10000] of integer;
f: text;
const fi='SUBSUM.INP' ;
    fo = 'SUBSUM.OUT' ;
Procedure ip;
begin
        assign(f,fi);
        reset(f);
        readln(f,n,m);
        for i:=1 to n do read(f,a[i]);
        close(f);
end;
Procedure out;
begin
        assign(f,fo);
        rewrite(f);
        d:=0;
        for i:=1 to n-1 do
        Begin
        If a[i]=m then d:=d+1;
        for j:=i+1 to n do
                 begin
                         t:=0;
                         for k:=i to j do t:=t+a[k];
                         if t=m then d:=d+1;
                 end;
        End;
        if a[n]=m then d:=d+1; write(f,d);
        close(f);
end;
Begin
ip;
out;
End.

Trường
Xem chi tiết
Trường
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 15:43

uses crt;

var a:array[1..100]of integer;

i,n,min:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

Nhật Hà
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 22:15

*Câu lệnh For..do

Dạng xuôi: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 22:15

*Câu lệnh For..do

Dạng ngược: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;

Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 22:16

*Câu lệnh For..do

-Hoạt động: 

+ Biến điếm sẽ nhân giá trị bằng giá trị đầu

+Sau mỗi vòng lặp, biến đếm tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì kết thúc lệnh lặp