Question

Решите пожалуйста на языке Паскаль

Answer 1

№6
program m;
var
a, max, pupils, i: integer;
ifNoanswer: boolean;
begin
ifNoanswer:=false;
a:=0;

№7 в комментах как только напишу
max:=0;
readln(pupils);
for i:=1 to pupils do
begin
readln(a);
if a>max then
max:=a
else if a=0 then
ifNoanswer:=true;
end;
writeln(max);
if ifNoanswer=false then
writeln('NO')
else
writeln('YES');
end.