Решение - в прилагаемом файле.
Const
N = 13;
Var
A:array[1..N] of integer;
i,Max,Min,S:integer;
Begin
Randomize;
Write('Исходный массив A(',N,'):');
Min:=1;
Max:=1;
For i:= 1 to N do
Begin
A[i]:=random(201)-100;
Write(' ',A[i]);
if A[i]<A[Min] then Min:=i;
if A[i]>A[Max] then Max:=i;
S:=S+A[i];
End;
WriteLn;
WriteLn('Min(A) = A[',Min,'] = ',A[Min]);
WriteLn('Max(A) = A[',Max,'] = ',A[Max]);
WriteLn('Среднее арифметическое элементов массива = ',S/N);
Write('Новый массив:');
S:=A[Min];
A[Min]:=A[Max];
A[Max]:=S;
For i:= 1 to N do
Write(' ',A[i])
End.
Пример работы программы:
Исходный массив A(13): 60 -61 8 -60 58 -73 93 82 74 -35 89 -72 -44
Min(A) = A[6] = -73
Max(A) = A[7] = 93
Среднее арифметическое элементов массива = 9.15384615384615
Новый массив: 60 -61 8 -60 58 93 -73 82 74 -35 89 -72 -44
<span>Решение: N<span> = 29 = 512.</span></span>
Ответ: <span>диапазон чисел имеет значение от 1 до 512</span>
Информационная модель — модель объекта, представленная в виде информации, описывающей существенные для данного рассмотрения параметры и переменные величины объекта, связи между ними, входы и выходы объекта и позволяющая путём подачи на модель информации об изменениях входных величин моделировать возможные состояния объекта.
ПРИМЕРЫ
1)Карта Москвы
2)График дежурств
3)математическая формула (а+б)²