năm 2019 đến năm 2020 trường trung học phổ thông Xuân Thọ có tổng cộng n thí sinh tham gia kỳ thi tốt nghiệp với danh sách đã được phê duyệt bắt đầu từ a1, a2,….. An thí sinh đăng ký dự thi. Gồm 4 môn thi trong đó có 3 môn bắt buộc: toán, Văn, Anh và một môn tự chọn điểm xét tuyển tốt nghiệp được tính bởi công thức điểm xét TN bằng (( tổng điểm 4 bài thi)+(điểm khuyến khích/4)+điểm trung bình lớp 12)/2
Em hãy thực hiện yêu cầu sau
a) xác định input và output để giải bài toán từ câu b.
b) viết thuật toán để in ra danh sách những học sinh ông tốt nghiệp với điều kiện điểm xét TN<5 và có một môn thi<1.
c) viết thuật toán để in đang danh sách những học sinh đậu tốt nghiệp với điều kiện xét TN>=5 và không có môn nào<1.
uses crt;
var m: array[1..100] of integer;
n,i,max,j,t,scp: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap m[‘,i,’]: ‘); readln (m[i]);
if max<=abs(m[i]) then max:=abs(m[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if m[i]<m[j] then
begin
t:=m[i];
m[i]:=m[j];
m[j]:=t;
end;
write (‘day sau khi sap xep giam dan: ‘);
for i:=1 to n do write (m[i],’ ‘);
writeln;
writeln (‘gia tri tuyet doi lon nhat trong day: ‘,max);
write (‘cac so chinh phuong trong day: ‘);
for i:=1 to n do
begin
scp:=trunc(sqrt(m[i]));
if sqr(scp)=m[i] then
write (m[i],’ ‘);
end;
readln;
end.