Question

Viết chương trình nhập điểm tin của các bạn trong lớp. In ra những bạn trên điểm 9 

Answer 1

uses crt;

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

n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do 

  if a[i]>9 then write(a[i]:4:2,' ');

readln;

end.