Определите какое назначение данной функции в программном коде при работе с массивами?
Расставляет все элементы в обратном порядке
Вычисляет общую длину списка
Сортирует массив по возрастанию
Возвращает индекс элемента

1,2 задание

var
a:array [1..9] of real;
i,k:integer;
j:real;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=(random(410)+100)/10;
write(a[i],' ');
end;
writeln;
writeln('Массив после увелечения минимального элемента на 100:');
k:=1;
for i:=2 to 9 do
if a[i]<a[k] then k:=i;
a[k]:=a[k]+100;
for i:=1 to 9 do
write(a[i],' ');
writeln;
writeln('Массив после престановки максиального элемента с первым:');
j:=a[1];
a[1]:=a[k];
a[k]:=j;
for i:=1 to 9 do
write(a[i],' ');
writeln;
end.

3 задание
var
a:array [1..10] of integer;
i,mn,mx:integer;
begin
writeln('Введите массив:');
for i:=1 to 10 do
readln(a[i]);
mn:=1; mx:=1;
writeln('Массив');
for i:=1 to 10 do
begin
if a[i]<a[mn] then mn:=i;
if a[i]>a[mx] then mx:=i;
write(a[i],' ');
end;
i:=a[mx];
a[mx]:=a[mn];
a[mn]:=i;
writeln;
writeln('Массив после престановки:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.

Поскольку вопрос сформулирован не "сколько цифр 1 содержит выражение", то число единиц показывает последняя цифра записи числа. Найдем его.
Выпишем последние цифры при возведении 2 в степень:
2¹=2,    2²=4,     2³=8,    2⁴=...6
2⁵=...2, 2⁶=...4, 2⁷=...8, 2⁸=...6
2⁹=...2, и т.д.
Видно, что если показатель степени делится на 4 без остатка, то последняя цифра равна 6. Если остаток 3, то последняя цифра 8. Если 2, то 4. Если 1, то 2.
Остаток от деления 1024 на 4 равен 0. Значит, 2¹⁰²⁴=...6
Выпишем последние цифры при возведении 8 в степень:
8¹=8,     8²=...4, 8³=...2, 8⁴=...6
8⁵=...8, 8⁶=...4, 8⁷=...2, 8⁸=...6
8⁹=...8. и т.д.
Показатель степени 1023 при делении на 4 дает в остатке 3. Следовательно, последняя цифра 8¹⁰²³ равна 2
8¹⁰²³=...2
Тогда можно найти последнюю цифру данного выражения
8¹⁰²³+2¹⁰²⁴-3=...6 + ...2 - 3=...8 -3=...5
ответ: 5 единиц