Var a:array [1..1000] of integer

Анастасия в категроии Информатика, вопрос открыт 14.06.2018 в 09:52

n,i,max,k:integer;
begin
readln(n);
for i:=1 to n do read (a[i]);
max:=a[1];k:=1;
for i:=2 to n do
begin
if a[1]>max
then begin max:=a[i];k:=1;
end
else if a[i]=max then k:=k+1
end;
writeln(max,'',k);

end.
Нарисуйте блок схему пожалуйста дай бог здоровья кто сделает