Viết chương trình nhập vào điểm tin học của các bạn trong lớp. In ra số bạn đạt điểm 10.
Viết chương trình nhập vào điểm tin học của các bạn trong lớp. In ra số bạn đạt điểm 10.
By Aaliyah
By Aaliyah
Viết chương trình nhập vào điểm tin học của các bạn trong lớp. In ra số bạn đạt điểm 10.
var a: array[1..100] of real;
n, i, d: byte;
Begin
Write(‘nhap so hoc sinh: ‘); readln(n);
D:=0;
For i:=1 to n do
Begin
Write(‘diem hoc sinh thu ‘, i, ‘ la: ‘);
Readln(a[i]);
If a[i]=10 then inc(d);
End;
Write(‘co ‘, d, ‘ hoc sinh dat diem 10’);
Readln
End.
program phuongt;
uses crt;
var A: array[1..100] of integer;
i, n: integer;
begin
clrscr;
write(‘Nhap so hoc sinh: ‘); readln(n);
for i:=1 to n do
begin
write(‘Diem cua ban thu ‘, i, ‘: ‘); readln(A[i]);
end;
write(‘Cac ban duoc diem 10 la: ‘);
for i:=1 to n do if A[i]=10 then write(A[i]:3);
readln
end.