Question

[Nguyễn Minh Thiên]

Viết chương trình sử dụng biến mảng lưu điểm Tin học của học sinh trong lớp 8A, số lượng 35 học sinh thực hiện những yêu cầu sau:

a)Nhập vào điểm của 35 bạn học sinh

b)In ra màn hình tất cả điểm

c) In ra màn hình những học sinh có điểm dưới 5 hoặc điểm >9

Answer 1

[Kiều Vũ Linh]

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.