const N = 10; var arr: array[1..N] of integer; i, k: byte; sum: integer; avr: real; begin writeln('Enter the ten elements of the array:'); for i:=1 to N do read(arr[i]); sum := 0; i := 1; k := 0; while i <= N do begin if (arr[i] mod 2) = 0 then begin sum := sum + arr[i]; k := k + 1 end; i := i + 2 end; writeln(sum); if k <> 0 then begin avr := sum / k; writeln(avr) end else writeln('No elements'); readln; end.
Кузнечик сидит в точке 0. Будем считать, что количество как попасть в точку ноль - 1.
У нас всего 6 кочек, 6 - конечная. Мы перемещаемся либо на последующую (+1), либо через одну (+2), либо через две (+3). То есть если мы были на кочке один и прыгнули через две кочки, то попадем в кочку 4 (1 + 3).
Начнём считать. 0 - мы на первом берегу. Наши кочки: 1, 2, 3, 4, 5 и 6 обозначены СЛЕВА. 7 этапом мы прыгнем на другой берег.
Всего существует как перебрать на другой берег болота.
P.S. В квадратных скобка [] обозначены индексы из каких точек мы можем попасть в эту точку. Достаточно сложить количество путей тех точек и мы получим количество путей для данной точки.
Кузнечик сидит в точке 0. Будем считать, что количество как попасть в точку ноль - 1.
У нас всего 6 кочек, 6 - конечная. Мы перемещаемся либо на последующую (+1), либо через одну (+2), либо через две (+3). То есть если мы были на кочке один и прыгнули через две кочки, то попадем в кочку 4 (1 + 3).
Начнём считать. 0 - мы на первом берегу. Наши кочки: 1, 2, 3, 4, 5 и 6 обозначены СЛЕВА. 7 этапом мы прыгнем на другой берег.
Всего существует как перебрать на другой берег болота.
P.S. В квадратных скобка [] обозначены индексы из каких точек мы можем попасть в эту точку. Достаточно сложить количество путей тех точек и мы получим количество путей для данной точки.
Pascal
const N = 10;
var arr: array[1..N] of integer;
i, k: byte;
sum: integer;
avr: real;
begin
writeln('Enter the ten elements of the array:');
for i:=1 to N do
read(arr[i]);
sum := 0;
i := 1;
k := 0;
while i <= N do begin
if (arr[i] mod 2) = 0 then begin
sum := sum + arr[i];
k := k + 1
end;
i := i + 2
end;
writeln(sum);
if k <> 0 then begin
avr := sum / k;
writeln(avr)
end
else
writeln('No elements');
readln;
end.