Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đỗ Thị Minh Ngọc

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

⭐Hannie⭐
3 tháng 5 2022 lúc 21:56

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


Các câu hỏi tương tự
Khue Nguyen
Xem chi tiết
Anh Hoàng
Xem chi tiết
Trúc Quỳnh
Xem chi tiết
thiện nhân
Xem chi tiết
43-8.1 Lam trường
Xem chi tiết
Cai Gia Tường Vy 45_8.2
Xem chi tiết
Nhan
Xem chi tiết
Đông Linh
Xem chi tiết
MON xuyênh gái
Xem chi tiết