Регистрация
KoKaina
21.06.2022 10:55
Информатика
Есть ответ 👍

решить задачи, через afce построить блок схемы: 1) Разработать схему алгоритма для вычисления суммы ряда:
S= 1+ 1/2+1/3+1/4...+1/N
2)Одноклеточная амёба каждые три часа делится на 2 клетки. Разработать схему
алгоритма для определения, сколько амёб будет через 3, 6, 9, 12 и 24 часа.

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

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

Котеня244
Котеня244
4,8(48 оценок)

var

  a: array [1..15] of integer;

  i, amin, ai: integer;

begin

  writeln ('массив: ');

  randomize;

  for i : = low (a) to high (a) do begin

    a [i] : = random (100);           // заполнение массива случайными значениями

    write (a [i], ' ');             // вывод для просмотра

  end;

  amin : = a [low (a)];               // минимальное значение возьмем из первого элемента массива

  ai : = low (a);                     // индекс минимального значения = 1

  for i : = low (a) + 1 to high (a) do begin   // цикл со второго элемента массива до последнего

    if a [i] < amin then begin               // если найден элемент меньше минимального

      amin : = a [i];                         // изменяем его значение

      ai : = i;                               // и сохраняем номер

    end;

  end;

  writeln;

  writeln ('минимальный элемент № ', ai, ' равный ', a [ai]);   // выводим минимальный элемент на просмотр

  a [ai] : = a [low (a)] + a [high (a)];                         // изменяем на сумму первого и последнего

  writeln ('заменен на значение = ', a [ai]);                   // и его новое значение на просмотр

end.

Популярно: Информатика