Створити масив дійсних чисел від 1 до 5. Знайти мінімальне та максимальне значення. Знайти сумму мінімального та максимального значення.
Объяснение:
0 строка - оголошення процедури
1 строка - оголошення зміних та надання їм типу цілих чисел
2 -оголошення масиву
3- оголошення змінних та надання їм типу дійсних чисел
4-початок
5-
6-цикл з лічильником та присовення знінній і значення 0
7-перетворення масиву у з рядкового типу у дійсний
8-
9-цикл з лічильником та присовення змінній і значення 1
10-перетворення з рядкового типу у цілі числа
11- перетворення з дійсного типу у рядковий
12-кінець
13-
14-присвоення змінній значення
15-присвоення змінній значення
16-присвоення змінній значення
17-цикли з лічильником та присвоення змінній і значення 2
18-умова при виконанні якої max:=А[i]
19-
20-цикли з лічильником з присвоєнням змінній і значення 1
21-умова при виконанні якої min:=А[i]
22-
23-
24-кінець
25- присвоєння рядкового типу
26-
27-знаходження сумми
28-
29-присвоєння рядкового типу
30-
31-кінець
Привожу 2 варианта решения.
Вариант 1: файл 1.cpp
Решение основано на обыкновенном вычислении периода дроби (для дробей, имеющих конечную десятичную запись(например, 1/2=0,5), период вычисляется для формы с нулем в периоде(то есть для 1/2 берется форма 0,5(0))) с деления столбиком.
Замечание: сам алгоритм деления в столбик я писал достаточно давно, и для других программ, поэтому его реализация в данном коде может быть неоптимальной (в плане памяти или кол-ва операций), однако он работает.
Вариант 2: файл 3.cpp
Если немного углубиться в математику, можно найти теорему, по которой дробь, представленная в виде m/n , где НОД(m, n) = 1, имеет конечную десятичную запись тогда и только тогда, когда ее знаменатель 
. Тогда достаточно сократить числитель и знаменатель на общие множители, а далее выполнить проверку знаменателя.
// PascalABC.NET
begin
var n := ReadInteger;
Print(n mod 10 + n mod 100 div 10)
end.