program bai1;

var a:array[1..50] of longint;

i,n,s:longint;

begin

repeat

write('N= ');readln(n);

until n<=20;

s:=0;

for i:=1 to n do

begin

write('A[',i,']= ');

readln(a[i]);

s:=s+a[i];

end;

write('S= ',s);

readln

end.

Program Tinhtong;

Uses Crt;

Var n,i,S: integer;

A:array [1..200] of integer;

Begin

writeln('Nhap cac phan tu cua dau:')

For i:=1 to 20 do

Begin

write('A[,'i',]=');Readln(A[i]);

end;

S:=0;

For i:=1 to 20 do S:=S+A[i];

Write('Tong la',S);

Readln;

end.

- Chương trình tham khảo:

Program Cau2;

Uses crt;

Var i: integer;

n: integer;

max: integer;

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;

max:= a[1];

min:= a[1];

For i:= 2 to n do

Begin

If max < a[i] then max:= a[i];

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

End;

Phần khai báo program cau 2 là gì vậy ạ

* Để kiểm tra trang tính ta chỉ cần nháy nút PRINT PREVIEW

Quy tắc gõ văn bản:

Các dấu chấm câu và dấu câu: dấu chấm, dấu phẩy, dấu hai chấm, dấu chấm phẩy, dấu chấm than, dấu chấm hỏi phải được đặt sát từ đứng trước nó, tiếp theo là một dấu cách nếu sau đó vẫn còn nội dung.

Các dấu mở ngoặc và dấu mở nháy phải được đặt sát vào bên trái ký tự đầu tiên của từ tiếp theo. Các dấu đóng ngoặc và các dấu đóng đáy tương ứng phải được đặt sát vào bên phải ký tự cuối cùng của từ ngày trước đó.

Chúc bạn học tốt !

Chèn ảnh để minh họa cho văn bản, giúp cho văn bản thêm sinh động, đẹp hơn

Lập bảng để giúp cho văn bản không bị dài dòng, trình bày cô đọng, giúp cho nội dung thống kê dễ hiểu hơn

* Chèn ảnh để minh họa cho văn bản, giúp cho văn bản thêm sinh động, đẹp hơn

* Lập bảng để giúp cho văn bản không bị dài dòng, trình bày cô đọng, giúp cho nội dung thống kê dễ hiểu hơn

Lời giải :

program hotrotinhoc;

var i,n : integer ;

a: array[1..32000] of real;

tbc,tb : real;

begin

write('Nhap so luong hoc sinh :'); readln(n);

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

tb:=0;

for i:= 1 to n do

begin

if a[i]<5 then write(a[i],' ');

tb:=tb+a[i];

tbc:=tb/n;

end;

writeln;

write('Diem trung binh cong cua cac ban hoc sinh la :',tbc);

readln

end.

Sẽ có tác dụng điều chỉnh ngắt trang theo ý muốn của mình.

Var i ,n : integer;

S , T : real;

Begin

write ('n=') ; read (n) ;

S:= 0;

T:= 1;

For i:= 1 to n do

S:= S + i;

T:= T * i;

Writeln (' Tong cua ' ,n,' so dau tien la' , S );

Writeln (' Tich của ' ,n,' so dau tien la' , T );

Readln;

End.

kcj , chỉ cần cho mk 1 like

Cú pháp: Var <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Cách thực hiện: Ban đầu, biến đếm nhận giá trị bằng giá trị đầu. Sau mỗi vòng lặp, giá trị biến đếm tự động tăng thêm một cho đến khi bằng giá trị cuối thì kết thúc.