По этому коду нужно составить Блок Схему

данный код меняет местами десятки и единицы в двузначном числе

Объяснение:

Носи́тель информа́ции (информацио́нный носи́тель) — любойматериальный объект или среда[неизвестный термин] , содержащий (несущий) информацию (И длительное время сохранять в своей структуре занесённую в/на него информацию — камень,дерево, бумага, металл, пластмассы, кремний (и другие виды полупроводников), лента с намагниченнымслоем (в бобинах и кассетах), пластик со специальными свойствами (для оптической записи И — CD, DVDи т. д.), ЭМИ (электромагнитное излучение) и т. д. и т. п.Носителем информации может быть любой объект, с которого возможно (но не обязательно) чтениеимеющейся (записанной) информации.Зачастую сам носитель информации помещается в защитную оболочку, повышающую его сохранность и,соответственно, надёжность сохранения И (к примеру: бумажные листы — в обложку, микросхему памяти —в пластик (смарт-карта), магнитную ленту — в корпус и т. д.).Носители информации в быту, науке (библиотеки), технике (скажем, для нужд связи), общественной жизни(СМИ) применяются для: (распространения)создания произведений компьютерного искусства

// PascalABC.NET 3.0, сборка 1088
const
  nn=100;
type
  tA=array[1..nn] of integer;

procedure MaxElem(n:integer; var m:ta; var mx:integer);
var
  i:integer;
begin
  mx:=m[1];
  for i:=2 to n do
    if m[i]>mx then mx:=m[i]
end;

var
  a:tA;
  i,n,amax:integer;
begin
  Write('Введите количество элементов в массиве: '); Read(n);
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i]:=Random(101)-50;
    Write(a[i],' ')
  end;
  Writeln;
  MaxElem(n,a,amax);
  Writeln('Максимальный элемент равен ',amax);
end.

Тестовое решение:
Введите количество элементов в массиве: 15
Элементы массива
-8 41 7 -40 -1 1 -18 5 -28 26 50 13 -42 39 -43
Максимальный элемент равен 50