ЗАДАНИЕ №4.

В соответствии со своим вариантом составить графическую схему алгоритма и написать программу.

В каждой из ниже приведенных задач предполагается, что задан одномерный массив с произвольным именем из N элементов. Программа должна печатать исходный массив и массив, полученный в результате выполнения требований задачи.

Найти максимальное число и поменять его местами со вторым элементом массива.

program lab5;

uses crt;

var max,k,i:integer;

x:array[0..10] of integer;

begin

for i:=0 to 10 do

begin

writeln('Ââåäèòå ',i,' ìàññèâà');

readln(x[i]);

end;

max:=x[0];

k:=0;

for i:=0 to 10 do

if max>x[i] then

begin

k:=i;

max:=x[i];

end;

x[k]:=x[1];

x[1]:=max;

for i:=0 to 10 do

write(x[i],' ' );

end.