Question

В баскетбольной команде города 12 юношей, их рост от 178 до 198 см. Выведите рост всех членов команды, поставив на первом месте рост самого высокого баскетболиста (максимальное число на 1 место)

Answer 1

По идее работает правильно:

program basketbol;

var a:array[1..12] of integer;

i,c,g:integer;

begin

g:=0;

for i:=1 to 12 do

readln(a[i]);

for i:=1 to 12 do

if a[i] > c then c:=a[i];

writeln();

for i:=1 to 12 do

if a[i] = c then g:=g+1;

for i:=1 to g do writeln(c);

for i:=1 to 12 do begin

if a[i] <> c then writeln(a[i]);

end;

end.