var
m : array [1..10] of Integer;
i, b, s, p : Integer;
begin
Writeln('Введите массив:');
for i := 1 to 10 do
begin
Write(i, ': ');
Readln(m[i]);
end;
s := 0;
b := m[1];
p := 1;
for i := 1 to 10 do
begin
if b < m[i] then b := m[i];
if m[i] > 0 then s := s + m[i];
if m[i] mod 2 = 0 then p := p * m[i];
end;
Writeln('Наибольший элемент = ', b);
Writeln('Сумма неотрицаельных элементов = ', s);
Writeln('Произведение четных элементов = ', p);
ReadLn;
end.
program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] > 0 then begin
Write (a [i] :7 :3);
x := x * a [i];
Inc (c);
end;
end;
WriteLn;
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.
