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-м и наоборот. Иными словами, массив переворачивается.