Створити масив дійсних чисел від 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-кінець
program Parallepiped;
var a,b,c,v,s:real;
begin
writeln('Введите длину рёбер параллепипеда ');
read(a,b,c);
v:=a*b*c;
s:=2*(a*c+c*b+a*b);
write('Площадь поверхности = ',s,', а объём = ',v);
end.