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

i,n:integer;

s:real;

begin

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

end;

write('tong la ',s:10:2);

readln

end.

Lỗi: "program tinh_a_mu_ng" sửa lại: program tinh_a_mu_ng;

Lỗi: gia tri sửa lại: giatri

Lỗi: readin(n) sửa lại: readln(n);

Lỗi: i:=1 sửa lại: i:=1;

Lỗi: while i < n do sửa lại: while i <= n do

Lỗi: i:=i+2 sửa lại: i:=i+1;

Lỗi: writeln('a mu n bang : ", giatri); sửa lại: writeln('a mu n bang : ', giatri);

-Cấu trúc lặp là một điều khiển thực hiện công việc lặp đi lặp lại khi chưa đủ số lần lặp hoặc khi một điều kiện nào đó còn đúng.

Chúc thi tốt:)

var a,b,c:integer;

begin

write('a = ');readln(a);

write('b = ');readln(b);

write('c = ');readln(c);

if (a+b>c) and (a+c>b) and (b+c>a) then

write('ba so do co the la do dai ba canh cua tam giac')

else write('ba so do khong the la do dai ba canh cua tam giac');

readln

end.

kiểm tra số dương là sao em? em ghi cụ thể chính xác lại giùm!

a) var a:array[1..1000] of integer;

i,k:integer;

p:longint;

begin

write('k = ');readln(k);

p:=1;

for i:=1 to k do

begin

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

if a[i]<30 then p:=p*a[i];

end;

write('Tich la ',p);

readln

end.

b) 

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

i,k:integer;

s:longint;

begin

write('k = ');readln(k);

for i:=1 to k do

begin

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

if a[i]<100 then s:=s+a[i];

end;

write('Tong la ',s);

readln

end.

Tổng của các số như thế nào em?

Có khai báo gì đâu em?

Đề cho sao em viết vậy á anh:') 

help me vs