Для підготовки до участі в чемпіонаті з легкої атлетики тренер поставив перед спортсменом завдання: перший тиждень пробігати дистанцію, довжина якої умовно дорівнює одиниці, а кожного наступного тижня збільшувати дистанцію на довжину, яка дорівнює початковій дистанції, поділеній на номер поточного тижня. Таким чином, математична модель бігу спортсмена така: 1, 1 + 1/2, 1 + 1/2 + 1/3, 1 + 1/2 + 1/3 + 1/4 + ... Розробіть алгоритм і програму визначення номера тижня, коли дистанція буде більшою за 1,91.
program z1;
var a:array [1..20] of integer;
i,s,k:integer;
begin
randomize;
s:=0;
k:=0;
write('Массив: ');
for i:=1 to 20 do
begin
a[i]:=random(90)+10;
if a[i] mod 2 <> 0 then
begin
s:=s+a[i];
k:=k+1
end;
write(a[i],' ')
end;
writeln;
writeln('Среднее арифметическое нечётных элементов: ',s/k:0:1)
end.
Объяснение:
Задаём значение элемента с random
Проверяем значение элемента на нечётность, если условие истинно, то считаем сумму и количество элементов
Выводим значение элемента на экран
Выводим среднее арифметическое (результат деления суммы на количество) нечётных элементов
B1 = E3*7
C1 = F3*7
A2 = D4*7
A3 = D5*7
Объяснение:
Формула в ячейке A1 содержит относительную ссылку (D3), которая будет изменяться при копировании.
При копировании в другой столбец будет изменяться буква столбца ссылки на столько букв на сколько столбцов сдвинулись относительно ячейки откуда копируется формула.
При копировании в ячейку B1, мы сдвинулись на 1 столбец относительно ячейки A1, поэтому заменяем в ссылке D на E (следующую букву в алфавите)
При копировании в ячейку C1, мы сдвинулись на 2 столбца относительно ячейки A1, поэтому заменяем в ссылке D на F (букву в алфавите отстоящую от буквы D на 2 буквы)
При копировании в другую строку будет изменяться номер строки ссылки на число строк на которые сдвинулись относительно ячейки откуда копируется формула.
При копировании в ячейку A2, мы сдвинулись на 1 строку относительно ячейки A1, поэтому заменяем в ссылке 3 на 4 (3 + 1 = 4)
При копировании в ячейку A3, мы сдвинулись на 2 строки относительно ячейки A1, поэтому заменяем в ссылке 3 на 5 (3 + 2 = 5)
Если копировать одновременно сдвигаясь и по столбцам и по строкам, то ссылка будет изменяться целиком, как написано выше