Var
x, x1: integer;
BreakLoop, NonDescending: Boolean;
begin
writeln('Вводите числовую последовательность');
read(x);
read(x1);
NonDescending := (x1 >= x);
repeat
read(x);
if x <> 0 then
if NonDescending then BreakLoop := (x < x1)
else BreakLoop := (x > x1);
x1 := x
until BreakLoop or (x = 0);
if BreakLoop then writeln(#13#10, 'Последовательность неупорядочена')
else
if NonDescending then writeln(#13#10, 'Последовательность неубывающая')
else writeln(#13#10, 'Последовательность невозрастающая')
end.
Тестовое решение
Вводите числовую последовательность
7
12
12
18
34
0
Последовательность неубывающая
1.
а) a*x*x+b*x+c
б) v+a*t*t/2
в) 1/2*(a+b)*h
г) (1+x1*x2)/(b*b*c)
д) SQRT(a*a+b*b)
2. Операции * и / выполняются слева направо, поэтому (см. рис.):
1) = b*(a*d)/(e*c)
2) = (a*b)/(c*d*e)
3) = a*b*d/(c*e)
4) = (a*d*b)/(c*e)
"Лишнее" выражение - 2)
Как называется описание последовательности действий которые должен выполнять компьютер для решения поставленной задачи?
Ответ: Программа
В 1 кбите 1000 бит (см. ГОСТ 8.417-2002, Приложение А, табл. А.1, хотя некоторые учителя и учебники все еще ошибочно считают, что в килобите 1024 бита).
Поэтому 2 кбита = 2 х 1000 = 2000 бит.
В 1 байте 8 бит, тогда 2000 бит = 2000 / 8 = 250 байт
А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.
var
m,n,s:integer;
begin
s:=0; n:=0;
repeat
Read(m);
if m<>0 then begin s:=s+m; n:=n+1 end
until m=0;
if n>0 then Writeln(s/n)
else Writeln('Ничего не введено')
end.