Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Tham khảo:
Đầu vào của hàm này là kết quả thực hiện nhapTuTep. gồm có danh sách xenf£S (các tên học sinh), danh sách tenlfon (các tên môn học) và mảng hai chiều x x x – Đọc từng cột của mảng hai chiếu để có dây số các điểm mỗi môn học.
- Ghép tương ứng mỗi tên học sinh từ danh sách tuS với mỗi điểm môn học sẽ thành danh sách các cấp (tên, điểm) cho môn học đó.
- Trả về tên danh sách dãy điểm số môn học và tên danh sách các cấp (tên, điểm).
Toán tử lát cắt (hình 2) trích ra đoạn con liền mạch hay dãy con (có bước nhảy step cách quãng) từ một dãy tuần tự nhiều mục dữ liệu, ví dụ như một biến kiểu danh sách
Lưu ý: Nếu bước nhảy step nhận giá trị âm thì toán tử lát cắt sẽ đảo chiều, đi từ cuối danh sách lên đầu danh sách, từ phải sang trái, kết quả nhận được giống như dùng phương thức reverse() (xem ví dụ hình 3).
program TrungBinhCong;
const
MAX = 100;
var
danhSach: array[1..MAX] of integer;
n, i, tong: integer;
trungbinh: real;
begin
write('Nhap so ptu (toi da 100): ');
readln(n);
tong := 0;
for i := 1 to n do
begin
write('Nhap giatri ptu thu ', i, ': ');
readln(danhsach[i]);
tong := tong + danhsach[i];
end;
trungbinh := tong / n;
writeln('Tbc cua danh sach la: ', trungbinh:0:2);
readln;
end.
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
tbc:real;
Begin
Repeat
Write('n = ');readln(n);
Until (n>0) and (n<=100);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
s:=s+a[i];
End;
tbc:=s/n;
Write('Trung binh cong la ',tbc:10:2);
Readln
End.
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
Begin
Repeat
Write('n = ');readln(n);
Until (n>0) and (n<=100);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
If a[i] mod 2 = 0 then s:=s+a[i];
End;
Write('Tong cac so chan la ',s);
Readln
End.
Thử áp dụng từng hàm với mảng và với danh sách rồi quan sát kết quả.