Найти наибольшее и наименьшее значения и их индексы в массиве D(n), n ≤ 25. Вычислить их среднее значение и произведение элементов, значения которых превышают среднее. Вывести массив, среднее арифметическое и произведение.
More Questions From This User See All
Answers & Comments
Verified answer
Ответ:
program xyz;
var
D: array [1..25] of Integer;
i, imin, imax, amin, amax, s, p: Integer;
aver: Double;
begin
Randomize;
WriteLn ('Массив:');
for i := Low (D) to High (D) do begin
D [i] := Random (101);
Write (D [i], ' ');
end;
imin := Low (D);
imax := Low (D);
amin := D [Low (D)];
amax := D [Low (D)];
s := 0;
for i := Low (D) to High (D) do begin
s := s + D [i];
if D [i] < amin then begin
amin := D [i];
imin := i;
end;
if D [i] > amax then begin
amax := D [i];
imax := i;
end;
end;
Aver := s / 25;
p := 1;
for i := Low (D) to High (D) do begin
if D [i] > Aver then
p := p * D [i];
end;
WriteLn;
WriteLn ('Минимальное значение = ', amin);
WriteLn ('Индекс = ', imin);
WriteLn ('Максимальное значение = ', amax);
WriteLn ('Индекс = ', imax);
WriteLn ('Среднее арифметическое = ', aver :10 :5);
WriteLn ('Произведение = ', p);
ReadLn;
end.