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

i:integer;

Begin

For i:=1 to 35 do

Begin

Write('Nhap diem thu ',i);readln(a[i]);

End;

write('Diem vua nhap la ');

For i:=1 to 35 do write(a[i]:10:2);

Writeln;

write('Cac diem duoi 5 hoac >  la ');

For i:=1 to 35 do

If (a[i]>9) or (a[i]<5) then write(a[i]:10:2)

Readln

End.

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

s,tbc:real;

i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

tbc:=s/n;

Write('Diem trung binh la ',s);

Readln

End.

(x + 2/3) + 1/11 = [10/(-33) . 11/8] . 24/(-55)

(x + 2/3) + 1/11 = -5/12 . 24/(-55)

(x + 2/3) + 1/11 = 2/11

x + 2/3 = 2/11 - 1/11

x + 2/3 = 1/11

x = 1/11 - 2/3

x = -19/33

Var a:array[1..5] of integer;

i:integer;

Begin

For i:=1 to 5 do

Begin

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

End;

Writeln('Cac so chan la ');

For i:=1 to 5 do

If a[i] mod 2 = 0 then write(a[i]:8);

Writeln;

Write('Cac so le la ');

For i:=1 to 5 do

If a[i] mod 2 <> 0 then write(a[i]:8);

Readln

End.

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

s:longint;

i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

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

If a[i] > 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln

End.

Câu 5:

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

min,i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

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

End;

min:=a[1];

For i:=2 to n do

If min > a[i] then min:=a[i];

Write('So nho nhat la ',min);

Readln

End.

Câu 4:

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

s:longint;

i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

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

If a[i] > 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln

End.

Câu 1

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

s:real;

i,n:integer;

Begin

Write('n = ');readln(n);

s:=1;

For i:=1 to n do

Begin

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

If a[i] > 0 then s:=s*a[i];

End;

Write('Tich la ',s:10:2);

Readln

End.