Viết chương trình nhập vào điểm của n bạn học sinh trong lớp in ra màn hình các điểm vừa nhập,in ra màn hình điểm của bạn cao nhất
Giúp mình với~~~ Mai mình thi!!☹
GIÚP MÌNH VỚI: Viết ra trương trình nhập điểm môn Tin của các bạn trong lớp. Sau đó in ra màn hình điểm cao nhất và số thứ tự của bạn đạt điểm cao nhất
program TimDiemCaoNhat;
var
diem: array[1..30] of integer;
i, diemCaoNhat, soThuTu: integer;
begin
for i := 1 to 30 do
begin
write('Nhap diem cua ban thu ', i, ': ');
readln(diem[i]);
end;
diemCaoNhat := diem[1];
soThuTu := 1;
for i := 2 to 30 do
begin
if diem[i] > diemCaoNhat then
begin
diemCaoNhat := diem[i];
soThuTu := i;
end;
end;
writeln('Diem cao nhat la: ', diemCaoNhat);
writeln('Ban thu ', soThuTu, ' dat diem cao nhat.');
readln;
end.
GIÚP MÌNH VỚI: Viết ra trương trình nhập điểm môn Tin của các bạn trong lớp. Sau đó in ra màn hình điểm cao nhất và số thứ tự của bạn đạt điểm cao nhất
Viết chương trình nhập trung bình môn Tin học của các bạn học sinh trong lớp. In ra màn hình điểm của các bạn và điểm số lớn nhất (hoặc nhỏ nhất) của lớp.
refer
uses crt;
var i,n:longint;
a:array[1..100] of real;
s1,s,max,min:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Diem trung binh mon tin hoc cua ban thu ',i,' la: ');readln(a[i]);
end;
min:=a[1];max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]; end;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln('So diem cao nhat la: ',max);
writeln('So diem thap nhat la: ',min);
write('Diem TB cua ca lop la: ',s1:0:1);
readln
viết chương trình nhập vào điểm kiểm tra môn tin học của các học sinh trong lớp (k học sinh). in ra màn hình điểm số cao nhất.
input: điểm của k học sinh
output: điểm số cao nhất
uses crt;
var a:array[1..100]of real;
i,n:integer;
ln:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
ln:=0;
for i:=1 to n do if ln<a[i] then ln:=a[i];
writeln(ln:4:2);
readln;
end.
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
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.
Viết chương trình nhập điểm các bạn trong lớp.Sau đó in ra màn hình học sinh giỏi,khá,trung bình
Giúp mình với ạ, cần gấp.
Tham khảo
program oken;
uses crt;
var a: array [1..100] of real;
i,n,dy,dtb,dk,dg:integer;
begin
clrscr;
write('Co bao nhieu ban can nhap diem: '); readln(N);
for i:=1 to n do
begin
write('nhap diem ban thu ',i,': ');
readln(a[i]);
if a[i]<5 then
dy:=dy+1
else if a[i]<6.4 then
dtb:=dtb+1
else if a[i]<7.9 then
dk:=dk+1
else
dg:=dg+1;
end;
writeln('So ban hoc yeu: ',dy);
writeln('So ban hoc trung binh: ',dtb);
writeln('So ban hoc kha: ',dk);
writeln('so ban hoc gioi: ',dg);
readln;
end.
program Phanloai;
uses crt;
Var i, n, Gioi, Kha, Trungbinh, Kem: integer;
A: array[1..100] of real;
Begin
clrscr;
write('Nhap so cac ban trong lop, n = '); readln(n);
writeln('Nhap diem:');
For i:=1 to n do Begin write(i,'.'); readln(a[i]); End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
begin
if a[i]>=8.0 then Gioi:=Gioi+1;
if a[i]<5 then Kem:=Kem+1;
if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;
if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1
end;
writeln('Ket qua hoc tap:');
writeln(Gioi,' ban hoc gioi');
writeln(Kha,' ban hoc kha');
writeln(Trungbinh,' ban hoc trung binh');
writeln(Kem,' ban hoc kem');
readln
End.
Viết chương tình sử dụng biến mảng để nhập từ bàn phím họ tên(hoten);ngày sinh(NS),Điểm Toán(Dtoan);Điểm Văn (Dvan) của các bạn học sinh trong lớp em(có 45hs).In ra màn hình tổng Điểm trung bình(DTB) của các bạn trong lớp.
Làm hộ mình với ạ,ngày mai mình thi rồi
uses crt;
var NS:array[1..100] of integer; Dtoan,Dvan,Dtb:array[1..100] of real;
hoten:array[1..100] of string; i:byte;
begin
clrscr;
for i:=1 to 45 do
begin
write('Nhap ten cua hoc sinh thu',i,':'); readln(hoten[i]);
write('Nhap ngay sinh:'); readln(NS[i]);
write('Nhap diem toan:'); readln(Dtoan[i]);
write ('Nhap diem van:'); readln(Dvan[i]);
Dtb[i]:=(Dtoan[i]+Dvan[i])/2;
end;
writeln('Diem trung binh cua cac ban trong lop la:');
for i:=1 to 45 do
writeln(hoten[i],':',Dtb[i]:1:2);
readln;
end.
Tham khảo thui!
Viết chương trình sử dụng biến mảng để nhập điểm trung bình môn tin học của các bạn trong lớp em.Thực hiện các yêu cầu sau - in điểm của các banh trong lớp em ra màn hình -tìm bạn có điểm trung bình cao nhất lớp em
uses crt;
var a:array[1..100]of real;
i,n:integer;
ln:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
ln:=a[1];
for i:=1 to n do if ln<a[i] then ln:=a[i];
writeln(ln);
readln;
end.
Viết chương trình nhập vào mảng A gồm N số thực (N<=50) là điểm thi toán của các bạn trong lớp. Hiển thị mảng vừa nhập ra màn hình (mỗi số hiển thị trên một dòng)?Ai giúp em với ạ !!?
Program HOC24;
var i.n: integer;
a: array[1..250] of integer;
begin
for i:=1 to n do
begin
write('Nhap diem toan cua ban thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do write(a[i],' ');
readln
end.
uses crt;
var i,n:integer; A: Array[1..50] of integer;begin clrscr; readln(n);readln(k); for i:=1 to n do begin write('A[',i,'] = '); readln(A[i]); end; for i:=1 to A[i] do if (A[i] > k) then write(A[i]); readlnend.
uses crt;
var a:array[1..50]of real;
i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=50);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
writeln(a[i]:4:2);
readln;
end.