Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Tuấn Trần thị

Câu2: viết chương trình thực hiện yêu cầu sau . a, Sử dụng biến mảng để nhập từ bàn phím điểm trung bình (ĐTB) của 50 bạn học sinh trong lớp. b,In rs màn hình (ĐTB) của học sinh . c,In ra màn hình số lớn nhất trong dãy số . Mn giúp mik vs mik cần gấp.mik c.ơn

Kiều Vũ Linh
10 tháng 5 2023 lúc 17:41

Var a:array:[1..50] of real;

i,max:integer;

Begin

For i:=1 to 50 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to 50 do 

Write(a[i]:10:2);

Writeln;

max:=a[1];

For i:=2 to 50 do

if a[i]>max then max:=a[i];

Write('Diem trung binh lon nhat la ',max:10:2);

Readln

End.

Kiều Vũ Linh
10 tháng 5 2023 lúc 17:44

Var a:array:[1..50] of real;

i:integer;

max:real;

Begin

For i:=1 to 50 do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to 50 do 

Write(a[i]:10:2);

writeln;

max:=a[1];

For i:=2 to 50 do

if a[i] > max then max:=a[i];

write('Diem lon nhat la ',max:10:2);

Readln

End.


Các câu hỏi tương tự
Tuấn Trần thị
Xem chi tiết
Nguyễn Minh Thiên
Xem chi tiết
Hoàng Hải Bình
Xem chi tiết
Anh Hoàng
Xem chi tiết
Đỗ vantinh
Xem chi tiết
Hiếu Phùng Mạnh
Xem chi tiết
Thwn Dayy
Xem chi tiết
Hắc Lang
Xem chi tiết
Thuytram301
Xem chi tiết