понедельник, 21 декабря 2009 г.

посчитать суммы индексов отрицательных элементов массива

дан массив g1, ..g10 .
Построить новый массив, содержащий номера отрицательных g[ i ] . Вычислить сумму этих номеров.

const
    N = 10;
var
    i: integer;
    g: array [1..N] of integer;
    b: array [1..N] of integer;
    count: integer;
    summa: integer;
begin
    writeln('инициализируем массив случайными числами от -50 до 50');
    for i:=1 to N do g[i]:=random(100)-50;

    writeln('начальный массив');
    for i:=1 to N do write(g[i]:4);
    writeln;

    count:=0;
    for i:=1 to N do if g[i] < 0 then begin
        inc(count);
        b[count]:=i;
    end;

    writeln('массив индексов элементов с отрицательными значениями');
    for i:=1 to count do write(b[i]:3);
    writeln;

    summa:=0;
    for i:=1 to count do summa:=summa+b[i];

    writeln('сумма индексов отрицательных элеметов = ', summa);
end.

вывод:
инициализируем массив случайными числами от -50 до 50
начальный массив
 -16 -19  -1  12  -3  40  49 -37 -12  10
массив индексов элементов с отрицательными значениями
  1  2  3  5  8  9
сумма индексов отрицательных элеметов = 28

Комментариев нет:

Отправить комментарий