uses crt;
var a: array[1..100] of integer;
i,n,s: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);

for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
s:=0;
for i:=1 to n do
begin
s:=s+a[i];
end;
writeln;
writeln('tong bang:',s);
readln
end.

không có hình gì cả 
Bạn viết lại đi

uses crt;
var a,b,c,d,e,max: longint;
begin
clrscr;
readln(a,b,c,d,e);
max:=1;
if max<a then max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
if max<e then max:=e;
writeln('so lon nhat la:',max);
readln
end.

câu lệnh While a<b; do t:=10+a sai

Vì trong viết sai câu lệnh, dấu ; chỉ suất hiện ở mỗi cuối câu lệnh

Sửa lại: While a<b do t:=10+a;

uses crt;
var a: array[1..100] of integer;
i,n,s,s1,s2,s3: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);

for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
write('day vua nhap la:');
s:=0;
for i:=1 to n do
begin
write(a[i],' ');
s:=s+a[i];
if a[i] mod 2=0 then s1:=s1+a[i];
if a[i] mod 2<>0 then s2:=s2+a[i];
if a[i] mod 3=0 then s3:=s3+a[i];
end;
writeln;
writeln('tong bang:',s);
writeln('tong chan:',s1);
writeln('tong le:',s2);
writeln('tong chia het cho 3:',s3);
readln
end.

BÀI 3

uses crt;
var a: array[1..100] of integer;
i,n,max,s,j: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
max:=a[1];
s:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
end;
writeln('so lon nhat trong day tren la:',max);
writeln('tong bang:',s);
writeln('so nguyen to trong mang la:');
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);
until (a[i] mod j=0);
if j>(a[i] div 2) then writeln(a[i]);
j:=1;
end;
readln
end.

bài 1

For do

While... do

For to do:

- Cú pháp:

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

- Giải thích:

   + Từ khóa: for, to, do

   + Biến đếm: kiểu nguyên

   + Giá trị đầu, giá trị cuối: giá trị nguyên (giá trị đầu < giá trị cuối)

   + Câu lệnh trong vòng lặp không làm thay đổi giá trị của biến đếm

   + Số lần lặp: giá trị đầu - giá trị cuối + 1

- 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

While do:

- Cú pháp: while <điều kiện> do <câu lệnh>;

- Giải thích:

   + Từ khóa: while, do

   + Điều kiện thường là một phép so sánh

   + Câu lệnh có thể là câu lệnh đơn hay câu lệnh ghép

- Hoạt đông: 

   + Kiểm tra điều kiện

   + Nếu điều kiện sai sẽ bị bỏ qua và kết thúc lệnh lặp

   + Nếu điều kiện đúng sẽ thực hiện câu lệnh và quay lại kiểm tra điều kiện