Объявить массив из 4 элементов в разделе переменных. Организовать ввод значений пользователем. Найти среднее значение элементов.

Хех секунду в секунду

Спасибо!

Синюю спасибо лучше

Пишу на паскалеvar cp:real;i,k,sum:integer;mass:array[1..4] of integer;beginfor i:=1 to 4 dobeginwrite('mass[',i,']= ');read(mass[i]);k:=k+1;sum:=sum+mass[i];end;cp:=sum/k;writeln('Среднее значение переменных равно ',cp);end.