program zadanie;
var
a: array[1..99999] of real;
i,n: integer;
begin
randomize;
write('Введите число чисел массива: '); readln(n);
for i:=1 to n do
begin
a[i]:=1+random(5);
writeln('a[', i, ']=', a[i]);
end;
write('Номера элементов, совпадающих с первым элементом: ');
for i:=1 to n do if a[i+1]=a[1] then write(i+1:3);
writeln;
end.
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=MatrRandom(4,5,-20,20).Println;
var c:=a.ElementsByRow;
Println('Кол-во положительных ->',c.Where(t->t>0).Count);
Println('Кол-во кратных 7 ->',c.Where(t->t mod 7=0).Count);
Println('Сред. арифм. отрицат. ->',c.Where(t->t<0).Average);
var b:=a.ElementsWithIndexes.MinBy(t->t[0]);
Writeln('Минимальный ->', b[0],'[',b[1]+1,',',b[2]+1,']');
b:=a.ElementsWithIndexes.Where(t->t[0]<0).MaxBy(t->t[0]);
Writeln('Максимальный отриц. ->', b[0],'[',b[1]+1,',',b[2]+1,']');
end.
Пример:
-10 6 12 7 4
-8 -4 3 -1 6
9 -2 16 19 -18
18 4 -3 12 -8
Кол-во положительных -> 12
Кол-во кратных 7 -> 1
Сред. арифм. отрицат. -> -6.75
Минимальный ->-18[3,5]
Максимальный отриц. ->-1[2,4]
</span>
Они писали на бумаге
пример:
три богатыря бумага как там
Ответ A . Этот алгоритм увеличивает число на 1 . Это видно на фото.
Происхождение слова "алгоритм" связано с алгоритмами десятичной позиционной арифметики. Правила действий с натуральными числами, записанными в десятичной системе счисления, были впервые найдены в средневековой Индии. Европейцы изучали их по книге великого арабского ученого IX в, которого звали Мухаммед ибн Муса аль-Хорезми, что буквально означает "Мухаммед, сын Мусы, уроженец Хорезма" (заметим, что Аральское море тогда называлось "озером Хорезм", а сам город Хорезм был расположен в бассейне реки Амударьи южнее этого моря) . Книга ученого "Китаб ал-хисаб ал-хинд" ("Книга об индийском счете") послужила прототипом многих рукописей, составленных европейцами уже на латинском языке. В них имя ученого – аль-Хорезми – латинизировалось и стало звучать как "алхоризм", "алгорифм" или "алгоритм". Этим словом стали называть сами рукописи о десятичной арифметике и алгоритмы цифровых вычислений, а лишь затем его стали использовать для обозначения произвольных алгоритмов.
