5. Cho mảng A gồm N phần tử kiểu nguyên (N<=100) hãy nhập các phần tử đó từ bàn phím biết rằng các phần tử đó trong đoạn 20..100 . Tính trung bình cộng các phần tử chia 7 dư 1. Đưa kết quả ra màn hình 6. Cho mảng A gồm N phần tử kiểu nguyên (N<101) hãy nhập các phần tử đó từ bàn phím biết các phần tử đó thuộc đoạn từ -10 đến 20. Tính tổng các phần tử chẵn và tích lớn hơn không . đưa kết quả ra màn hình 3. Cho Mảng A gồm 10 phần tử kiểu nguyên . Nhập các phần tử đó vào từ bàn phím biết các phần tử đó đều chẵn . Tính các phần tử chia 3 dư một và sắp xếp tăng dần . đưa kết quả ra màn hình CẦU XIN MỌI NGƯỜI GIÚP CHIỀU NAY T PHẢi kiểm tra
Bài 5:
Program BTT;
Uses crt;
Var A: array[1..10000] of Longint;
i,n,t: longint;
tbc: extended;
Begin
Clrscr;
Write(‘Nhap so luong phan tu: ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If (A[i]<20) or (A[i]>100) then
Begin
Write(‘Nhap lai A[‘,i,’] = ‘);
Readln(A[i]);
End;
End;
t:=0;
For i:=1 to n do
If A[i] mod 7 = 1 then t:=t+A[i];
tbc:=t/n;
Write(‘Trung binh cong la: ‘,tbc:0:2);
Readln;
End.