В текстовом редакторе Word выполнить блок-схему алгоритма для решения следующей

задачи:

1. Ввести два числа и вывести значение периметра и площади прямоугольника со

сторонами, равными введенным значениям.

2. Ввести два числа и вывести большее из них.

3. Ввести три числа и вывести меньшее из них.

4. Ввести число и возвести его в квадрат. Повторять операцию до тех пор, пока

результат не станет больше 1000. Вывести полученное значение.

5. Ввести два числа. Удваивать меньшее из них до тех пор, пока оно не станет больше

второго числа. Вывести полученное значение.​

Program example;

const

A=30;

Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный

var

flag_max : integer;
flag_min : integer;

i. jmin,jmax : integer; //счетчики

Randomize;

array max[A];

//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;

//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max

jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;

//минимальный элемент

for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;

//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;

//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);

Program example;

const

A=30;

Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный

var

flag_max : integer;
flag_min : integer;

i. jmin,jmax : integer; //счетчики

Randomize;

array max[A];

//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;

//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max

jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;

//минимальный элемент

for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;

//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;

//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);