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
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.
Giúp bé đi nàoooooo
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.
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 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 điểm trung bình môn tin học cuối hk1 của các bạn hc sinh trong lớp em và in ra số điểm cao nhất?
GIÚP EM VỚI Ạ ! MAI EM THI RỒI
Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D
uses crt;
var a:array[1..50]of real;
max:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('Nhap diem cua ban thu ',i,'='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
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 môn tin của các bạn trong lớp mình au đó in ra màn hình sổ bạn số bạn đtaj kết quả học tập loại giỏi khá trung bình và yếu ( theo điều kiện>= 8 điểm giỏi từ 6,5 điểm đến 7,9 điểm khá từ 5 điểm đến 6,4 điểm trung bình dưới 5 điểm yếu)
Viết chương trình nhập vào điểm toán và điểm văn của các bạn trong lớp , tính và in điểm trung bình của các bạn trong lớp
Tham khảo
Var a,b:array[1..100] of integer;
c: array[1..100] of real;
i,n:integer;
Begin
write('Nhap so hoc sinh: ');readln(n);
writeln('Nhap diem Toan');
for i:=1 to n do begin write(i,'. ');readln(a[i]);end;
writeln('Nhap diem Van');
for i:=1 to n do begin write(i,'. ');readln(b[i]);end;
for i:=1 to n do c[i]:=(a[i]+b[i])/2;
writeln('Diem trung binh');
for i:=1 to n do writeln(i,'. ',c[i]);
readln
Viết chương trình nhập điểm toán, lí, hóa cho các bạn lớp 8a14. Sao đó in ra màn hình điểm trung bình của các bạn trong lớp theo công thức điểm trung bình= ( điểm toán+ điểm lí+ điểm hóa):3 và in ra màn hình kết quả
uses crt;
var a,b,c,tb:array[1..10]of real;
ln,nn:real;
n:integer;
i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i],b[i],c[i]);
for i:=1 to n do
tb[i]:=(a[i]+b[i]+c[i])/3;
for i:=1 to n do
writeln(tb[i]:4:2);
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
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.