uses crt;

var n,i,dem: integer;

tb: real;

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

writeln('Nhap do dai day: '); read(n);

writeln('Nhap cac phan tu cua day: ');

for i:=1 to n do

begin

writeln('a[',i,']='); read(a[i]);

end;

tb:=0;

for i :=1 to n do

begin tb:=tb+a[i]; dem:=dem+1; end;

tb:=tb/dem;

writeln('Gia tri Tb la: ',tb);

readln

@Lê Minh Vy:

-Sau dòng lệnh thứ 4 là lệnh Begin: dùng để chia giữa phần khai báo và phần thân và cuối chương trình thiếu lệnh end. để kết thúc chương trình.

-Lệnh nhập là readln không phải read: + dòng thứ 5 của bạn phải là readln(n); + dòng thứ 9 là readln(a[i]);

- Dòng 11,12,13 có thể gộp lên ở phần trên để đỡ chạy vòng for, rườm rà nhé :))

- Đề bài :viết chương trình sử dụng biến mảng để tính giá trị trung bình của n số nguyên được nhập từ bàn phím "và in ra dãy số nguyên đó" nên cuối bài, trước readln end. cần thêm lệnh

for i:=1 to n do write('day so nguyen la' a[i],' '); hoặc có thể bỏ ở vòng for ở trên gộp lại cũng được.

uses crt;
var a:array[1..1000000] of longint;
      n,i,s:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i] mod 2=1 then inc(s,a[i]);
            end;
      write('Tong cac so le: ',s);
      readln;
end.

test test

Em cho thêm điều kiện loại Khá của em là gì?

uses crt;
var a:array[1..1000000] of longint;
      n,i,d:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i] mod 2=0 then inc(d);
            end;
      write('Co ',d,' gia tri la so chan');
      readln;
end.

uses crt;
var a:array[1..1000000] of longint;
      n,i,d:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i] mod 2=1 then inc(d);
            end;
      write('Co ',d,' gia tri la so le');
      readln;
end.

Program HOC24;

var d,i,n: integer;

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

begin

write('Nhap do dai cua day: '); readln(n);

for i:=1 to n do 

begin

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

end;

d:=0;

for i:=1 to n do if a[i] mod 2=1 then d:=d+1;

write('Co tat ca ',d,' gia tri le');

readln

end.