Напишите программу, которая вводит с клавиатуры 15 целых чисел, организовывает их хранение в одномерном массиве, а затем определяет среднее

Var mas: array[1..15] of integer; a,c: integer; begin c: =0; for a: =1 to 15 do begin  writeln('введите число: 1'); readln(mas[a]); c: =c+mas[a]; end; writeln('среднее=',c/a); end.

// pascalabc.net 3.2, сборка 1374 от 10.01.2017// внимание! если программа не работает, обновите версию! procedure myarray(n: integer; var a: array of integer); begin  a: =arrfill(n,0); // заполняем массив нулями  randomize; // инициализируем датчик случайных чисел  // в случайный элемент заносим слчайное значение  a[random(0,n-1)]: =random(1,99)end; begin  var n: =readinteger('n='); // читаем с клавиатуры размер массива  var mas: array of integer;   myarray(n,mas); // вызываем процедуру  mas.println // выводим сформированный массивend. пример n= 21 0 0 0 0 0 0 0 56 0 0 0 0 0 0 0 0 0 0 0 0 0

Var    a,b,c{длины сторон}, s{площадь тр.}, p{полупериметр}: double; begin writeln('введите стороны треугольника: '); readln(a,b,c);       if (a> =b+c) or (b> =a+c) or (c> =a+b) then            writeln ('такого треугольника не существует')            else begin          p: =(a+b+c)/2;             s: =sqrt(p*(p-a)*(p-b)*(p-c)); {вычисляем s тр. по формуле герона}            writeln ('такой треугольник существует, его s = ', s, 'ед.');             end;       end.