СРОЧНО! ДАЮ 90 БАЛЛОВ Дан одномерный массив состоящий из n элементов. Элементы...

Question

СРОЧНО! ДАЮ 90 БАЛЛОВ
Дан одномерный массив состоящий из n элементов. Элементы определяются Random. Диапазон от -100 до 100.
1. Найти max элементов и номер
2. min
3. Среднее значение
4. Поменять местами max и min

Answer 1

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]    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

Answer 2

Const n=20;
var a:array[1..n] of shortint;
min,max,i:longint;
begin
randomize;
for i:=1 to n do a[i]:=-100+random(201);
min:=1;max:=1;
for i:=2 to n do
begin
write(a[i]:5);
if(a[i]if a[i]>a[max] then max:=i;
end;
writeln;writeln('Max: ',a[max],' index: ',max);
writeln('Min: ',a[min],' index: ',min);
i:=a[min];a[min]:=a[max];a[max]:=i;
for i:=1 to n do write(a[i]:5);
end.