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

program gg;

var i,n,max: integer;

a: array of integer[1..10];

begin

readln(a[i]);

for i: =1 to 10 do

begin

writeln(a[i],' ');

end;

n: =a[6];

a[6]: =a[9];

a[9]: =n;

max: =a[1];

for i: =2 to 10 do

if a[i]> max then

max: =a[i];

writeln('max element=',max);

readln

end.

Нахождение площади труегольника: 1. формула площади треугольника по стороне и высоте    s =  1a · h22.нахождение площади трекгольника по всем сторонам(формула герона)√s = √ p(p - a)(p - b)(p - c)(все под корнем идет)3.формла площади трекгольника по 2-ум сторонам и углу между ними  s =  1a · b · sin γ24.формула нахождения площади трегольника по трем сторонам и радиусу описанной окружности  s =  a · b · с/4r5.формула площади трекгольника по трем сторонам и радиусу вписанной окружности  s =  p· rнахождение площади прямоугольника: 1.нахождение площади прямоугольника(одну сторону умножаем на другую,то есть ту которая длинная и которая короткая друг на друга)  s =  a · bнахождение площади паралелограма: 1.формула площади параллелограмма по длине стороны и высоте s =  a · h2.формула площади параллелограмма по двум сторонам и углу между ними  s =  a · b · sin αобращайся!

Const   n=5; var   a: array[1..5,1..5] of integer;   i,j,k: integer; begin   randomize;   writeln('исходный массив');   k: =0;   for i: =1 to n do       begin       for j: =1 to n do           begin           a[i,j]: =random(100)+1;           write(a[i,j]: 4);           if a[i,j] mod 5 = 0 then k: =k+1           end;       writeln       end;   writeln('количество элементов, кратных 5, равно ',k) end. контрольный пример исходный массив   82 100    2  68  88   31  75  21  18    7   100  65  23  80  27     1  88  49  94  93   50  87  77  67  80 количество элементов, кратных 5, равно 7