В баскетбольной команде города 12 юношей, их рост от 178 до 198 см. Выведите рост всех членов команды, поставив на первом месте рост самого высокого баскетболиста (максимальное число на 1 место)
More Questions From This User See All
Answers & Comments
По идее работает правильно:
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.