Запишите на Паскале программу нахождения среднего арифметического двух чисел.

var

a, b: real;

begin

readln (a, b) ; / / Берём 2 числа

a : = (a + b) / 2; / / находим ответ

writeln (a) ; / / Выводим ответ

end.

Пишу частями, пробелы восполни сам

type massiv = array [1 ... 1000] of integer;

var

i, n, summa : integer;

srednee : real; A : massiv;

write ('Введите кол-во элементов : ') ;

readln (n) ; summa : = 0; / / начальное значение

for i:=1 to n do begin write ('Введите ', i, ' элемент: ') ; readln (A[i]) ; summa : = summa + A[i]; end;