Технический форум - Дан одномерный целочисленный массив из N элементов

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Дан одномерный целочисленный массив из N элементов (http://www.tehnari.ru/f41/t87824/)

eicecall

26.04.2013 14:24

Дан одномерный целочисленный массив из N элементов

Найти сумму модулей первых K нечетных элементов массива. Сделайте пожалуйста)

Vladimir_S

26.04.2013 14:36

Цитата:

Сообщение от eicecall (Сообщение 901120)

Найти сумму модулей первых K нечетных элементов массива. Сделайте пожалуйста)

И к Вам тоже относится: http://www.tehnari.ru/f41/t87822/#post901107

eicecall

26.04.2013 14:44

Pascal ABC.net

eicecall

26.04.2013 14:49

Vladimir_S[/quote] Паскаль Абс

Vladimir_S

26.04.2013 17:32

Вот:

Код:

Const

 Nmax=100;

Var

 n,k,S,i,j:Integer;

 a:Array[1..Nmax] of Integer;

Begin

 Write('n (<100)= ');

 Readln(n);

 Randomize;

 For i:=1 to n do

  begin

   a[i]:=-50+Random(100);

   write(a[i]:4);

  end;

 Writeln;

 Write('k (<',n,')= ');

 Readln(k);

 S:=0;

 j:=0;

 i:=0;

 Repeat

  Inc(i);

  If (a[i] mod 2)<>0 then

   begin

    Inc(S,Abs(a[i]));

    Inc(j);

   end;

 Until (j=k) or (i=n);

 Writeln('Sum of first ',j,' absolute odds is ',S);

 Readln

End.

Часовой пояс GMT +4, время: 10:46.