Những câu hỏi liên quan
Anh Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 21:58

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.

Bình luận (0)
Khue Nguyen
Xem chi tiết
ERROR
9 tháng 5 2022 lúc 19:55

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

Bình luận (0)
eeedddd
Xem chi tiết
trân
Xem chi tiết
lê thị bích ngọc
2 tháng 12 2021 lúc 11:14

bạn phải cho biết bao nhiêu điểm HS 1, bao nhiêu điểm HS 2, bao nhiêu điểm HS 3 thì mới làm được chứ

Bình luận (0)
Nguyễn Quỳnh Anh 8A
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 4 2022 lúc 6:59

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.

Bình luận (1)
Nguyên Đăng
Xem chi tiết
Hương Đinh
Xem chi tiết
Vương Hương Giang
2 tháng 3 2022 lúc 19:19

XEM HÌNH

imagerotate

Bình luận (0)
Hương Đinh
Xem chi tiết
Đỗ Đức Duy
2 tháng 3 2022 lúc 19:05

image

Bình luận (0)
Ms 37: Phạm Minh Phúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 1 2022 lúc 9:00

uses crt;

var a,b,tb:real;

begin

clrscr;

readln(a,b);

tb:=(a+b*2)/3;

writeln(tb:4:2);

if (tb>=8) then writeln('gioi')

else if ((tb>=6.5) and (tb<8)) then writeln('Kha')

else if ((tb>=5) and (tb<6.5)) then writeln('Trung Binh')

else writeln('Yeu');

readln;

end.

Bình luận (0)