program Project2;
uses
SysUtils;
var M : array of integer;
i, n : integer;
kd : integer=0;
s : longint=0;
begin
write('Enter size of array, n=');
readln(n);
writeln('Enter elements of array');
Setlength(M, n);
for i:=0 to n-1 do
begin
write('M[', i, ']=');
readln(M[i]);
end;
for i:=n-1 downto 0 do
if M[i]>0 then
begin
inc(kd);
if kd<=3 then
s:=s+M[i] else
break;
end;
writeln;
writeln('sum=', s);
readln;
end.
Рис.3.1 Програма в процесі виконання
2. Прочитати з клавіатури групу чисел. Знайти середнє арифметичне чисел, розміщених за порядком за першим ненульовим. Вважати, що ненульових значень може не бути взагалі.
