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

[eicecall]

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

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

 

[Vladimir_S]

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

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

 

[eicecall]

Pascal ABC.net

 

[eicecall]

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

 

[Vladimir_S]

Вот:

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.