câu 1:

a) thiếu dấu ; ở cuối 

sửa: for i:=1 to 10 do writeln ('A');

b) sau X ko phải có; mà có : từ 5.. 10 có 2 dấu chấm dư 1 dấu

sửa: var X: array [5..10] of char;

b) thiếu  dấu ; ở cuối câu lệnh

sửa: X:=10; while X=10 do X:=X+5;

d) giá trị đầu và gia trị cuối của câu lệnh phải là só nguyên

sửa: for i:=1 to 10 do writeln('A');

câu 2: thiếu đề á bạn ơi. mình giải theo số nguyên được nhập từ bàn phím nhe

program ct;

uses crt;

var i,n,s:integer;

A:array[1..100] 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.

a) for i:=1 to 10 do writeln ('A'); (Thêm ; sau lệnh writeln)

b) var X: array [5..10] of char;  (Sửa dấu ; thành : và 5..10 chỉ 2 dấu . thôi nhé)

C) X:=10; while X=10 do X:=X+5; ( Thêm ; sau 5)

d)for i:=1.5 to 10.3 do writeln ('A');  (thêm : sau i)

Câu2: viết chương trình tính tổng dãy n số nguyên đầu tiên

uses crt;

var i,n,s: integer;

begin

clrscr;

writeln('Nhap n=');  readln(n);

for i:=1 to n do

s:=s+i;

writeln('Tong la:',s);

readln;

end.

viết chương trình tính tổng dãy n số nguyên nhap tu ban phim

uese crt;

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

i,n,s: integer

begin

writeln('Nhap so n='); readln(n);

for i:=1 to n do begin

writeln('Nhap so nguyen thu',i,':'); readln(a[i]);

end;

for i:= 1to n do

s:=s+a[i];

writeln('tong la:',s);

readln;

end.