Алғашқы процессорлардын пйда болуы мен даму тарихын зерттеу

139

475

Посмотреть ответы 1

Ответы на вопрос:

lemenukillya

Информатика

4,5(26 оценок)

Program p1; var r,z,k,i: integer; mas: array [ 1..100 ] of integer; label m1; begin k: =0; writeln('vvedite massiv iz 10 chisel cherez probel'); for i: =1 to 10 do begin read(mas[ i ]); k: =k+1; end; m1: for i: =1 to k do begin if mas[ i ] < mas[ i+1 ] then begin z: =mas[ i ]; r: =mas[ i+1 ]; mas[ i ]: =r; mas[ i+1 ]: =z; goto m1; end; end; for i: =1 to k do begin write (mas[ i ],' '); end; end.