Ответ:
Пять.
Объяснение:
Оно проверяет, больше ли 8 хоть одно число
RFV,EP RE,HBR ZRJHM
DFDASD ASD ASD ASDAS DASD ASD
begin
var a := ArrRandom(16, -20, 20); a.Println;
a.Numerate(0).Where(x -> x[1].isEven)
.Select(x -> x[0]).Println;
end.
Const n=10;
var a:array[1..n] of real;
i:integer;
b:boolean;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=10*random;
write(a[i]:5:1);
end;
writeln;
b:=true;
for i:=1 to n-1 do
if a[i]>=a[i+1] then b:=false;
if b
then writeln('Последовательность возрастающая')
else writeln('Последовательность не возрастающая');
end.
Пример:
5.3 1.4 0.2 6.1 5.7 0.8 3.4 6.2 6.2 8.4
Последовательность не возрастающая
К алгоритмам можно отнести:
А) Правила ТБ (делай это, но не делай это: НЕ СТОЙ под стрелой)
Б) Инструкция по приготовлению пищи (ПОКА <вода> Не <закипела> ВЫПОЛНЯЙ)
Д) Планирование своего рабочего дня (Проснуться, Позвонить, Написать, Пойти, Вернуться, Лечь спать...)