Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max элементов массива

program zz1;

const n = 10; / / задаем количество элементов в массиве

var i, k, max1:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (m[i]);

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

k:=m[6]; m[6]:=m[9]; m[9]:=k; / / производим обмен

max1:=0;

for i:=1 to n do / / находим максимальный элемент

if m[i]>max1 then max1:=m[i];

writeln (' максимальный элемент = ', max1); / / выводим ответ

end.