Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Đây là code Pascal để nhập và in điểm kiểm tra học kì môn tin cho N của từng học sinh:
program DiemKT;
var
N, i: integer;
diem: array1..100 of integer;
begin
write('Nhap so hoc sinh: ');
readln(N);
for i := 1 to N do
begin
write('Nhap diem kiem tra hoc ki cua hoc sinh thu ', i, ': ');
readln(diemi);
end;
writeln('Diem kiem tra hoc ki cua ', N, ' hoc sinh la:');
for i := 1 to N do
writeln('Hoc sinh thu ', i, ': ', diemi);
end.
uses crt;
var a:array[1..5]of real;
i:byte;
t:real;
begin
clrscr;
for i:=1 to 5 do
begin
write('Nhap diem Tin cua ban thu ',i,'='); readln(a[i]);
end;
for i:=1 to 5 do
writeln('Diem cua ban thu ',i,'=',a[i]:4:2);
t:=0;
for i:=1 to 5 do
t:=t+a[i];
writeln('Diem trung binh la: ',t/5:4:2);
readln;
end.
uses crt;
var a:array[1..20]of real;
t,tb,ln,nn:real;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t:4:2);
writeln(t/n:4:2);
nn:=a[1];
ln:=a[1];
for i:=1 to n do
begin
if nn>a[i] then nn:=a[i];
if ln<a[i] then ln:=a[i];
end;
writeln(nn);
writeln(ln);
readln;
end.
Uses crt;
Var i,n:integer;
a:array[1..1000] of integer;
Begin
clrscr;
Write('Nhap so hoc sinh: ');readln(n);
Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');
For i:=1 to n do
Begin
Write('Hoc sinh thu ',i,' : ');
readln(a[i]);
End;
Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');
For i:= 1 to n do writeln('Hoc sinh thu ',i,' : ',a[i]);
readln;
End.
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.
prograam bi1;
var a:array[1..100] of longint;
i:,sngint;tbc:real;ten:string
begin
write('Nhap ten ');readln(ten);
s:=0;
for i:=1 to n do
begin
write('Nhap diem thu ',i,'= ');
readln(a[i]);
s:=s+a[i];
end;
write('Nhung con diem <5 la ');
for i:=1 to n do
if a[i]<5 then write(a[i],' ');
wrtieln ;
write('NHung con diem 10 la ');
for i:=1 to n do
if a[i]<10then write(a[i],' ');
tbc:=s/n;
if tbc>=8 then write('Ban duoc hsg')
else if tbc>=6.5 then write('Ban dat danh hieu hoc sinh tien tien')
else if tbc>=5 then wrtie('Ban dat danh hieu trung binh ')
else write('Ban dat danh hieu yeu');
readln
end.
Program HOC24;
var a: array[1..32000] of integer;
i,n,d: integer;
begin
write('Nhap so hoc sinh : '); readln(n);
for i:=1 to n do
begin
write('Nhap diem tin cua ban thu ',i,' : '); readln(a[i]);
end;
d:=0;
for i:=1 to n do if a[i]>5 then d:=d+1;
write('Co ',d,' hoc sinh co tren 5 diem');
readln
end.