Question

viết chương trình 

-Nhập mảng số thực  điểm trung bình môn toán của N bạn trogn lớp 

-In ra màng hình số bạn đạt loại giỏi ( nếu điểm trung bình không nhỏ hơn 8.0 ). và điểm các bạn này .

 

Answer 1

uses crt;

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

n,i,dem:integer;

begin

clrscr;

readln(n);

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

dem:=0;

for i:=1 to n do 

  if a[i]>=8 then dem:=dem+1;

for i:=1 to n do 

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

writeln;

writeln(dem);

readln;

end.