Завдання 1. Створіть проект Випробування, у якому знаходять різницю між найбільшим і найменшим елементом лінійної таблиці з 10 дійсних чисел, які
набувають значень від 5 до 10 випадково.

Алгоритм роботи

1. Відкрийте середовище програмуванн IDLE. Створіть новий файл.
2. У вікні редактора коду запишіть команди випадкового генерування
елементів масиву та виведення списком у вікні виконання проекту.
import random
a = []
for i in range (10):
a.append(round((10.0-random.random()*5.0),2))
print(a)
Зауважте, для того щоб отримати випадкове дійсне число за умовою 5 < x < 10 з
двома знаками після коми, використано вираз:
round((10.0 – random.random()*5.0),2)
3. У вікні редактора коду запишіть команди пошуку найбільшого та
найменшого елементів масиву
max=a[0]
min=a[0]
for i in range (10):
if a[i]>max:
max=a[i]
if a[i] min=a[i]
4. У вікні редактора коду запишіть команди виведення максимального
елемента, мінімального елемента та різниці значень max і min
print("Максимальний елемент", max)
print("Мінімальний елемент", min)
print("Різниця",(round(max-min,2)))

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

3. Заполнить массив случайными целыми числами (0-10). Найти сумму четных и нечетных значений.

begin
  var a:=ArrRandom(ReadInteger('n='),0,10); a.Println;
  var so:=a.Where(t->t.IsOdd).Sum;
  var se:=a.Where(t->t.IsEven).Sum;
  Writeln('Сумма четных значений равна ',so,', нечетных ',se)
end.

Пример
n= 15
4 2 1 9 1 1 6 5 10 8 3 9 7 7 9
Сумма четных значений равна 52, нечетных 30

5. Заполнить массив целыми числами с клавиатуры. Найти произведение всех элементов массива.

Ограничим ввод нулем, поскольку ввод нуля обнулит все произведение.

begin
  ReadSeqIntegerWhile(t->t<>0).Aggregate(BigInteger(1),(p,q)->p*q).Println
end.

Пример
-4523 235423 6734532 2342354 67345423 2342342 -43532423 0
115347094687898985235964440890392383424914416

7. Заполнить массив случайными целыми числами в интервале от 0 до 18. Найти наибольший элемент среди всех чисел массива и указать его номер.

begin
  var a:=ArrRandom(ReadInteger('n='),0,18); a.Println;
  var imax:=a.IndexMax;
  Writeln('Наибольший элемент ',a[imax],' имеет номер ',imax+1)
end.

Пример
n= 13
1 4 8 18 14 14 7 1 12 15 16 12 11
Наибольший элемент 18 имеет номер 4

Последовательное построение алгоритма

Существуют различные методы конструирования (разработки, построения) алгоритмов. Один из них — методпоследовательного построения (уточнения) алгоритма. Иначе он называется методом разработки «сверху вниз», нисходящим методом или методом пошаговой детализации.

Суть метода:

• задачу разбивают на несколько частей, каждая из которых проще всей задачи;

• решение каждой части задачи формулируют в отдельной команде, которая также может выходить за рамки системы команд исполнителя;

• при наличии в алгоритме предписаний, выходящих за пределы возможностей исполнителя, такие предписания вновь представляются в виде совокупности ещё более простых предписаний.

Процесс продолжается до тех пор, пока все предписания не будут понятны исполнителю.

Вс алгоритм делает структуру алгоритма более понятной.

При конкретном обращении к вс алгоритму формальные параметры заменяются фактическими параметрами, т. е. именно теми величинами, для которых будет исполнен вс алгоритм. Типы, количество и порядок следования формальных и фактических параметров должны совпадать.

Алгоритм, в котором прямо или косвенно содержится ссылка на него же как на вс алгоритм, называют рекурсивным.