Код программы:
var a:array[1..27] of integer;
b, i, c, ind:integer;
begin
a[1]:= 72;
a[2]:= 76;
a[3]:= 92;
a[4]:= 45;
a[5]:= 55;
a[6]:= 82;
a[7]:= 46;
a[8]:= 39;
a[9]:= 78;
a[10]:=50;
a[11]:=34;
a[12]:=71;
a[13]:=44;
a[14]:= 92;
a[15]:= 38;
a[16]:= 51;
a[17]:= 6;
a[18]:= 45;
a[19]:= 66;
a[20]:= 78;
a[21]:= 19;
a[22]:= 17;
a[23]:= 42;
a[24]:= 36;
a[25]:= 34;
a[26]:= 91;
a[27]:= 61;
writeln('Введите число');
readln(b);
if ((b >= 0) and (b <= 100)) then begin
c:=abs(b - a[1]);
for i:=2 to 27 do begin
if(abs(b - a[i]) <=c) then begin
c:=abs(b - a[i]);
ind:=i;
end;
end;
writeln('Результат: ', a[ind]);
end
else
writeln('Ошибка, число должно быть больше 0 и меньше 100');
end.
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i > 1) and (i <= m) then
if t[i] > t[i - 1] then n := n + 1
else if t[i] < t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5