Const
n = 40;
var
x: array[1..n] of integer;
i, k, s: integer;
begin
Randomize;
Writeln('Элементы массива');
k := 0; s := 0;
for i := 1 to n do
begin
x[i] := Random(50);
Write(x[i]:3);
end;
Writeln;
Writeln('Элементы со значением в интервале [7;10]');
for i := 1 to n do
if (x[i] >= 7) and (x[i] <= 10) then
begin
k := k + 1; s := s + x[i];
Write(x[i]:3)
end;
if k = 0 then Writeln('не найдены')
else Writeln(#13#10, ' Элементов:', k, ', среднее арифметическое=', s / k:5:3)
end.
Тестовое решение:
Элементы массива
24 33 36 29 12 7 5 36 3 48 40 40 46 6 10 23 33 3 38 48 29 37 11 40 44 16 17 18 34 38 33 39 9 0 41 37 42 2 40 31
Элементы со значением в интервале [7;10]
7 10 9
Элементов:3, среднее арифметическое=8.667
var
j,i: integer;
begin
for i:= 0 to 9 do
begin
for j:=0 to 9 do
begin
if ((54*100+i*10+5)*10+j) mod 45 = 0 then writeln((54*100+i*10+5)*10+j);
end;
end;
<span>end.</span>
При протяжке выделенного диапазона Эксель определяет шаг между значениями и пытается автоматически построить последовательность с найденным шагом.
Январь имеет номер месяца 1, сентябрь - номер 9. Между ними 8 месяцев.
Тогда в А3 будет месяц номер 9+8=17. Но у нас 12 месяцев повторяются в цикле, поэтому вычитаем 12 и получаем 17-12=5. И в ячейке А3 будет месяц май.
В А4 будет месяц с номером 5+8=13, но 13>12, поэтому получим 13-12=1, а это январь. Январь у нас был, и что идет дальше известно: А5 - сентябрь, А6 - май, А7 - январь.
Ответ: ЯНВАРЬ.
С помощью переменный-счетчиков (обычно "и" и "йот").
1)
Цикл for 16 раз выполняет действие:
Если текущий элемент массива f[i] не кратно трем, тогда к переменной S, прибавляется элемент текущей позиции массива m[i].
2)
Вычисляет количество чисел от 1 до 40 кратных двум.
