Даже не знаю. Как-то так, наверное.
const n=5;
var a:array[1..n] of real; t:real; i,k:integer;
begin
t:=0; k:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do t:=t+a[i];
t:=t/n;
for i:=1 to n do if a[i]
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.