Tin học Mảng một chiều

[Dương Nhạt Nhẽo]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Bài 3: em hãy viết chương trình Pascal thực hiện những việc sau:
Khai báo một mảng để lưu điểm môn Tin của các bạn HS lớp 8A
Nhập các phần tử của mảng từ bàn phím
Hiển thị trên màn hình các pần tử vừa nhập trên một dòng
Tính tổng điểm, điểm trung bình môn tin
Đếm xem trong lớp 8A có bao nhiêu bạn có điểm tin lớn hơn điểm trung bình
P/s: làm bằng cách chụp ảnh nha
@Nhật Hạ !

 

[Nhật Hạ !]

Var a:array[1..100] of longint;
n,i,s,k: longint;
Begin
Write('Nhap so phan tu cua mang '); Readln(n);
For i:=1 to n do
  Begin
  Write('a[',i,']=');
  REadln(a[i]);
  ENd;
For i:=1 to n do write(a[i],'  '); Writeln;
For i:=1 to n do s:=s+a[i];
Writeln('Tong diem ca lop: ',s);
writeln('Diem TB cua ca lop: ',s/n:2:3);
For i:=1 to n do
        IF a[i]>s/n then inc(k);
write('Co ',k,' ban hon diem trung binh ');
REadln;
End.

 

[Dương Nhạt Nhẽo]

Var a:array[1..100] of longint;
n,i,s,k: longint;
Begin
Write('Nhap so phan tu cua mang '); Readln(n);
For i:=1 to n do
  Begin
  Write('a[',i,']=');
  REadln(a[i]);
  ENd;
For i:=1 to n do write(a[i],'  '); Writeln;
For i:=1 to n do s:=s+a[i];
Writeln('Tong diem ca lop: ',s);
writeln('Diem TB cua ca lop: ',s/n:2:3);
For i:=1 to n do
        IF a[i]>s/n then inc(k);
write('Co ',k,' ban hon diem trung binh ');
REadln;
End.

View attachment 139259

inc là gì hả chị

 

[Kuro-chan]

Bài 3: em hãy viết chương trình Pascal thực hiện những việc sau:
Khai báo một mảng để lưu điểm môn Tin của các bạn HS lớp 8A
Nhập các phần tử của mảng từ bàn phím
Hiển thị trên màn hình các pần tử vừa nhập trên một dòng
Tính tổng điểm, điểm trung bình môn tin
Đếm xem trong lớp 8A có bao nhiêu bạn có điểm tin lớn hơn điểm trung bình
P/s: làm bằng cách chụp ảnh nha
@Nhật Hạ !

cái này thầy Hùng chưa chữa đề cương cho các cậu ak?

 

[Dương Nhạt Nhẽo]

cái này thầy Hùng chưa chữa đề cương cho các cậu ak?

mình không học thầy hùng nha, học cô Thúy đấy

 

[Dương Nhạt Nhẽo]

Var a:array[1..100] of longint;
n,i,s,k: longint;
Begin
Write('Nhap so phan tu cua mang '); Readln(n);
For i:=1 to n do
  Begin
  Write('a[',i,']=');
  REadln(a[i]);
  ENd;
For i:=1 to n do write(a[i],'  '); Writeln;
For i:=1 to n do s:=s+a[i];
Writeln('Tong diem ca lop: ',s);
writeln('Diem TB cua ca lop: ',s/n:2:3);
For i:=1 to n do
        IF a[i]>s/n then inc(k);
write('Co ',k,' ban hon diem trung binh ');
REadln;
End.

View attachment 139259

à thôi em thử tìm trên mạng và được rồi