Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
writeln('Пары соседних элементов с суммой > 50:');
for i:=2 to n do
if a[i-1]+a[i]>50 then writeln(a[i-1]:3,' ',a[i]);
end.
Пример:
12 34 23 1 12 3 1 42 30 36
Пары соседних элементов с суммой > 50:
34 23
42 30
30 36
Первая цифра произведения может быть оценена, как первая цифра произведения двух старших цифр чисел 20·13 = 260, т.е. она будет равна 2.
Последняя цифра будет равна последней цифре произведения двух младших разрядов сомножителей 9·8 = 72, т.е. 2.
Само же произведение, увы, можно найти только вычислением.
Оно будет равно
2737716945423050345600398555176684633258912514924379847261460355903719144383097092
Очень интересные задания)))
179 - последняя
180. Первую строку наверное не надо писать. Со второй можно начать. Р - разбойник, К - купец.
181. Стрелками показано откуда и куда переливаем
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
лемур у них очень большие хвосты