Постройте модель два велосипедиста отправились одновременно из двух сел на встречу друг другу . 1-вы - id675792120200322 от jf7yyf 22.03.2020 20:06

Question

Информатика: Постройте модель два велосипедиста отправились одновременно из двух сел на встречу друг другу . 1-вы а минут , 2- ой за б минут . через сколько минут они встретятся

jf7yyf · Accepted Answer

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
const
N = 10;

var
a: array [1..N] of integer;
i, j, b: integer;

begin
for i := 1 to N do
    a[i] := Random(81) - 40;
writeln('Элементы массива a: ');
for i := 1 to N do
    write(a[i], ' ');
writeln;

//сортировка не очень быстрая, но и массив маленький
for j := 1 to n do
    for i := 1 to n - 1 do
      if a[i] < a[i + 1] then
      begin
        b := a[i];
        a[i] := a[i + 1];
        a[i + 1] := b;
      end;
writeln;
writeln('После сортировки : ');
for i := 1 to N do
    write(a[i], ' ');
writeln;
end.

Постройте модель два велосипедиста отправились одновременно из двух сел на встречу друг другу . 1-вы а минут , 2- ой за б минут . через сколько минут они встретятся

MOGZ ответил