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>В летнем лагере отдыхало 86 семиклассников.
6 из них не любят компьютерные игры.
55 семиклассника предпочитают квесты,
60 — симуляторы.
Сколько ребят с одинаковым удовольствием играют и в квесты, и в симуляторы?
решение в приложении</span>
Совокупность сведений об объекте процесс или явление называется описанием