irinasolodova3
?>

Рассортируйте заданный линейный массив по возрастаниюpascal)

Информатика

Ответы

nurtilekisakov
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
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
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)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

stusha78938
eshabunina
Андрей Шитенкова
euzdenova
semenov-1970
dashanna04225
shabaev19542355
ganorussia
APerova3464
boykoz9
anchutk3016
abahtina582
Викторович Попков
GALINAMTO
впвыпвып-Зуйков629