Массив записей содержит фамилии участников соревнования по прыжкам в длину и результаты трех попыток. расположите записи в порядке занятых спортсменами мест. воспользуйтесь поразрядной сортировкой.

язык си(откомпилирован и проверен был в dev-c++)

#include < stdio.h> #include < stdlib.h> #include < conio.h> int main(){      int a, b, c;       printf("\n vvedite 3 chisla :   ");       scanf("%d" "%d" "%d", & a, & b, & c);             if (a > b & & a > c) printf("\n a = %d", a);       if (b > c & & b > a) printf("\n b = %d", b);       if (c > b & & c > a) printf("\n c = %d", c);       if (a == b & & a > c) printf("\n a = %d b = %d", a, b);       if (a == c & & a > b) printf("\n a = %d c = %d", a, c);       if (b == c & & b > c) printf("\n b = %d c = %d", b, c);       if (a == b & & a == c) printf("\n a = %d b = %d c = %d", a, b, c);   printf("\n\n press ");   getch( );   return 0; }

паскаль (откомпилирован и проверен был в pascal abc)

program z1; uses crt; var a, b , c: integer; beginwrite('vvedite 3 chisla:   '); readln(a, b, c); if (a > b) and (a > c) then writeln(' a = ', a); if (b > c) and (b > a) then writeln(' b = ', b); if (c > a) and (c > b) then writeln(' c = ', c); if (a = b) and (a > c) then writeln(' a = ', a, ' b = ', b); if (a = c) and (a > b) then writeln(' a = ', a, ' c = ', c); if (b = c) and (b > c) then writeln(' b = ', c, ' c = ', c); if (a = b) and (a = c) then writeln(' a = ', a, ' b = ', b, ' c = ', c); end.

v=331+0.6t

в зимний день- v=331+0.6*(-35)=310 м/с

в летний день- v=331+0.6*30=349 м/с

var n, n1, n2, n3, k: integer;

begin readln(n); n1 : = 1; n2 : = 1; n3 : = 2; k : = 0; if (n=1) or (n=2) then k : = 1; while n3 < = n do begin if n3=n then k : = 1; n1 : = n2; n2 : = n3; n3 : = n1 + n2; end; if k = 1 then writeln(n, ' является числом фибоначчи') else writeln(n, ' не является числом фибоначчи'); end.

1)

var

a: array [1..5,1..10] of integer;

i,j,p: integer;

begin

for i: =1 to 5 do 

begin

for j: =1 to 10 do

begin

a[i,j]: =random(50)+1;

write(a[i,j]: 3);

end;

writeln;

end;

writeln('меняем 1 и последнюю строки');

for j: =1 to 10 do

begin

p: =a[1,j];

a[1,j]: =a[5,j];

a[5,j]: =p;

end;

for i: =1 to 5 do 

begin

for j: =1 to 10 do

write(a[i,j]: 3);

writeln;

end;

end.

2)

var a: array [1..5, 1..10] of integer; i, j: integer; p: real;

begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.