crus, | Код |
program mass;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
MAX = 20;
Var
vector : Array [1..MAX] of real;
i : integer;
len : integer; // вводимая длина массива
count : integer; // количество отрицательных элементов
sum : real; // сумма отрицательных элементов
Begin
Writeln('Input vector elements count(max = ', max, ')');
Readln(len);
Writeln('Input elements');
for i := 1 to len do
read(vector[i]);
count := 0;
sum := 0;
for i := 1 to len do
begin
if (vector[i] < 0) then
begin
Inc(count);
sum := sum + vector[i];
end;
end;
if (count = 0) then
Writeln('No negative elements')
else
begin
sum := sum / count;
Writeln('Average value = ', sum : 3 : 1);
end;
Writeln('Press any key to exit');
readln;
readln;
end.
|
|
)