1.

*cú pháp For:

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

- Hoạt động: câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp. Số vòng lặp là biết trước và bằng giá trị cuối - giá trị đầu+1. Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm được tự động tăng thêm 1 đơn vị cho đến khi bằng giá trị cuối.

* cú pháp while:

 While <điều kiện> do<câu lệnh>;

- hoạt động:

B1:kiểm tra điều kiện

B2: nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1.

* khai báo biến mảng:

  Var <tên biến mảng>: array[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu>;

- Trong đó chỉ số đầu và chỉ số cuối là hai số nguyên thỏa mãn chỉ số đầu ≤≤  chỉ số cuối và kiểu dữ liệu có thể là integer hoặc real.

2.

2.1

program ct;

uses crt;

var i,n,s:integer;

begin

clrscr;

write('nhap n:=');readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln('tong cua n do tu nhien dau tien la:',s);

readln

end.

2.2

program ct;

uses crt;

var i,tong:integer;

begin

clrscr;

tong:=0; i:=0;

while tong<=100 do

begin

i:=i+1;

tong:=tong+i;

end;

writeln('tong la:=',tong);

readln

end.

2.3

program ct;

uses crt;

var i,n,s:integer;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

for i:=1 to n do s:=s+A[i];

writeln('tong la:',s);

readln

end.

2.4

program ct;

uses crt;

var i,n,Max,Min:integer;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang 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;

writeln('gia tri lon nhat la:',Max);

writeln('gia tri nho nhat la:',Min);

readln

end.

HỌC TỐT!

CHO MÌNH XIN CÂU TRẢ LỜI HAY NHẤT NHA

-CT 1: 

program oken;
uses crt;
var n,s,i: longint;
begin
    clrscr;
    write('Nhap n: '); readln(n);
    for i:=1 to n do
        s:=s+i;
    writeln('Tong ',n,' so tu nhien dau tien: ',s);
    readln;
end.
-CT 2:

program oken;
uses crt;
var s,i: longint;
begin
    clrscr;
    i:=1; s:=0;
    while s<100 do
        begin
            s:=s+i;
            i:=i+1;
        end;
    writeln('So n can tim: ',i);
    readln;
end.

-CT 3:

program oken;
uses crt;
type gionhan= 1..50;
var a: array [1..50] of integer;
    i,n: gionhan;
    s: longint;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    for i:=1 to n do    
        begin
            write('a[',i,']: ');
            readln(a[i]);
            s:=s+a[i];
        end;
    writeln('Tong cua mang vua nhap: ',s);
    readln;
end.

-CT 4:

program oken;
uses crt;
type gionhan= 1..50;
var a: array [1..50] of integer;
    i,n: gionhan;
    max,min: integer;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    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
        if max<a[i] then
            max:=a[i]
        else
            if min>a[i] then
                min:=a[i];
    writeln('So lon nhat: ',max);
    writeln('So nho nhat: ',min);
    readln;
end.