Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D 

uses crt;

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

max:real;

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('Nhap diem cua ban thu ',i,'='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

program TongSoChanTrongDay;

var

      n, i, tong: integer;

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

begin

      tong := 0;

      write('Nhap so phan tu cua day: ');

      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

                  tong := tong + a[i];

      end;

      writeln('Tong cac phan tu chan trong day la: ', tong);

      readln;

end.

fgfgfgfgfgfggfgfgfggggfgf

Input: Số a

Output: Kiểm tra xem a là số âm hay là số dương

Ý tưởng: Sau khi nhập a, chúng ta sẽ kiểm tra xem nếu a<0 thì a là số âm, nếu a>0 thì a là số dương còn nếu a=0 thì a không là số âm cũng không là số dương

Thuật toán

-Bước 1: Nhập a

-Bước 2: Nếu a<0 thì xuất a là số âm

Nếu a>0 thì a là số dương

Nếu a=0 thì a không là số âm cũng không là số dương

-Bước 3: Kết thúc

Var a:array[1..200] of real;

i,n,dem:integer;

s,tbc:real;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

s:=0;

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.

mình lớp 5 cũng đang bó tay .com

Vì 4 số chẵn liên tiếp có trung bình cộng bằng 2007 (là 1 số lẻ) nên do đó 2 số tự nhiên chẵn liền trước và liền sau số trung bình cộng 2007 này là: 2006; 2008

Vậy 4 số tự nhiên chẵn liên tiếp đó là:

2004; 2006; 2008; 2010

ht

Tổng số tuổi 4 người là: \(21\times4=84\left(tuổi\right)\)

Tổng số tuổi bố, mẹ, em là: \(25\times3=75\left(tuổi\right)\)

Tuổi Mai là: \(84-75=9\left(tuổi\right)\)

Tuổi em Mai là: \(9-4=5\left(tuổi\right)\)

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

t:=t+a[i];

writeln('Tong cua day la: ',t:4:2);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.

chữ đẹp quá :))