Объяснение:
a - массив;
sum - сумма элементов массива;
avrg - среднее значение.
Пример алгоритма решения задачи:
Заполняем массив (например, случайными числами).
Переменной sum изначально присваиваем значение 0.
Вычисляем сумму элементов, в цикле перебирая массив и добавляя значение каждого к переменной sum.
Находим среднее арифметическое, путем деления суммы на количество элементов (хранится в константе N).
Выводим на экран весь массив и найденное среднее значение. (Это не обязательно, но необходимо для удобства.)
Снова в цикле перебираем массив. Если очередной элемент больше среднего арифметического, то выводим этот элемент на экран.
const N = 10;
var
a: array[1..N] of integer;
i: byte;
avrg: real;
sum: integer;
begin
randomize;
for i:=1 to N do a[i]:=random(50)+1;
sum := 0;
for i:=1 to N do sum := sum + a[i];
avrg := sum/N;
// весь массив
for i:=1 to N do write(a[i]:3);
writeln;
writeln('Среднее арифм.: ',avrg:4:2
for i:=1 to N do if a[i]>avrg then write(a[i]:3);
writeln;
end.
Пример выполнения программы:
7 36 21 48 33 46 7 17 19 41
Среднее арифм.: 27.50
36 48 33 46 41
Объяснение:
Объясняю почему:
Перед тобой цикл for. Строчка «for i in range(2,6)» означает, что цикл будет начинаться со второй итерации (шаг) до 6 (но в этом цикле такая фишка, что конечное число не учитывается, то есть будет 6-1 (5)). Значит с шагом 5 цикл оборвётся и 6 выполняться не будет. Ты можешь обнаружить это в таблице. Последнее твоё действие заканчивается на строчке под номером 5. А дальше все очень просто!
Допустим, в пустые клеточки (А1, В1) мы ввели какие-то числа. Например, А = 2, В = 3. Следующим шагом программы будет присвоить нашим переменным, которые мы задали, новые значения, которые считаются по формуле данной в строке 2:
2*A1+B1 (это для переменной А) и B1+1 (это для переменной B).
Значит теперь у нас:
A = 2*2(то число которое мы задали)+3 = 7
B = 3(то число которое мы задали)+1 = 4
А дальше программа просто повторяет все то же самое, только теперь с новыми значениями, у нас они стали: A = 7, B = 4. Надеюсь все понятно :) И именно ответ под номером один нам подходит.
Если ещё надо решить вторую задачу, то сфоткай полностью ответы.
var
A, B: integer;
begin
read(A, B);
A := A xor B;
B := B xor A;
A := A xor B;
write(A, ' ', B);
end.