program Project1;
uses
SysUtils;
var M : array of integer;
i, n : integer;
notnull : integer=0;
k : integer=0;
sum : real=0;
res : real;
begin
write('Enter size of array, n=');
readln(n);
Setlength(M, n);
for i:=0 to n-1 do
begin
write('M[', i, ']=');
readln(M[i]);
end;
i:=0;
while (i<=(n-1)) and (k=0) do
if M[i]>0 then
k:=i else inc(i);
for i:=k to n-1 do
begin
sum:=sum+M[i];
inc(notnull);
end;
res:=sum/notnull;
writeln;
writeln('result=',res:10:3);
readln;
end.
Рис.3.2 Програма в процесі виконання
Практична робота №3 (продовження)
1. Обчислити середнє арифметичне остач таких виразів: (4p2+2)/(2p), p=1,...,12.
