А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.
var
m,n,s:integer;
begin
s:=0; n:=0;
repeat
Read(m);
if m<>0 then begin s:=s+m; n:=n+1 end
until m=0;
if n>0 then Writeln(s/n)
else Writeln('Ничего не введено')
end.
var x: array[1..10] of real;
n: integer;
begin
for n:=1 to 10 do begin
x[n]:=power(3,n)-5;
writeln(x[n]);
end;
end.
Норм.
<span>Процесс оформления страницы, абзаца, строки, символа, путём изменения размера символов или их начертания.
</span>
Ну, например, так:
uses Crt;
const n=100;
var i: integer;
begin
ClrScr;
WriteLn (' Tabliza kwadratow: ');
for i:=1 to n do
begin
Write (i,'=',i*i, ' ':4);
if (i mod 5=0) then
WriteLn;
end;
WriteLn;
ReadLn;
end.