Procedure bubble(var item: dataarray; count: integer); var i,j: integer; x: dataitem begin for i : = 2 to count do begin for j : = count downto i do if item[j-1]> item[j] then begin x : = item[j-1]; item[j-1] : = item[j]; item[j] : = x; end end end
Павловна897
11.09.2022
Program primer; uses crt; var i,n: integer; a: array[1..100] of integer; begin clrscr; randomize; write('pazmer massiva = '); readln(n); for i: =1 to n do a[i]: = random(100)-50; for i: =1 to n do write(a[i]: 5); writeln; writeln; for i: =n downto 1 do write(a[i]: 5); readln; end.
Диана820
11.09.2022
Var a, b, c, summ, d, den: real; beginwrite('введите кол-во км начальные: '); readln(a); write('введите на сколько % увеличивается расстояние каждый день: '); readln(b); write('введите, до скольки км увеличивает расстояние в день лыжник: '); readln(c); den: =0; while a< c do begin d: =a/100*b; // узнаем, на сколько увеличивается растояние a: =a+d; den: =den+1; end; writeln(den); end.написал на pascal. вводить можно любые данные ( не только, которые вы дали)
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Рассортируйте заданный линейный массив по возрастаниюpascal)