4. Составьте по следующей программе блок-схему и поясните ее функциональное назначение.
For i:=1 to 40 do begin
A[i]:=random(100);
Writeln(‘number’, i, ‘ element array’, a[i]
End;
For i:=1 to 20 do begin
P:=a[i]; a[i]:=a[40-i+1]; a[40-i+1]:=p
End;

Сначала массив из 40 элементов заполняется случайными числами.Затем элементы массива меняются местами, т. е. 1-й элемент становится 40-м, а 40-й - первым, второй - 39-м и наоборот.Иными словами, массив переворачивается.