const
n=5;
var
i,j,maxi,maxj:integer;
a:array [1..n,1..n] of integer;
b:array of integer;
begin
maxi:=1; maxj:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(101)-50;
write(a[i,j]:4);
if a[i,j]>a[maxi,maxj] then
begin
maxi:=i;
maxj:=j;
end;
end;
writeln;
end;
writeln;
writeln('Строка: ', maxi);
j:=1; i:=1;
repeat
if a[maxi,j] >0 then
begin
setlength(b,i);
b[i-1]:=a[maxi,j];
inc(i);
end;
inc(j);
until j>n;
for j:=0 to length(b)-1 do
write(b[j]:4);
b:=nil;
end.
Нога анатомически состоит из трёх основных частей: бедра, голени и стопы. Бедро образовано бедренной костью (самой массивной и прочной из человеческих костей) и надколенником, защищающим коленный сустав. Надколенник обеспечивает блок при разгибании голени. Голень образуют большая и малая берцовые кости. Стопу образует множество мелких костей. Место сочленения бедренной кости с тазовой костью называется тазобедренным суставом. Сочленение бедренной и берцовых костей называется коленным суставом, а берцовых костей с костями стопы — голеностопным суставом. Ахиллово сухожилие ограничивает движения стопы относительно берцовой кости. Травмы голеностопного и особенно коленного сустава опасны, поскольку часто приносят необратимый вред.
Объяснение:
begin
while a*4<65 do
begin
writeln('кролик: ',a,' гусь: ',(64-a*4) div 2);
a:=a+1;
end;
end.