M[2]: = 17; M[3]: = 5; M[4]: = 17; M[5]: = 3; M[6]: = 1

С: = 0;
for i : = 2 to 6 do
if (i mod 2 = 0) then
C: = C+ M[i]
else
C:= C-M[i];

Напиши значение С =

129

413

Посмотреть ответы 1

Ответы на вопрос:

aruukewa123

Информатика

4,6(44 оценок)

//прога на pascal`e var a: array of longint; y: array of longint; b: longint; i, k, k2: byte; // begin randomize; write ('введите кол-во элементов изначального массива: '); read (k); setlength (a, k); for i: =0 to k-1 do {read (a[i]); } a[i]: =random (100000); write ('введите величину b: '); read (b); for i: =0 to k-1 do if a[i]< =b then begin k2: =k2+1; setlength (y, k2); y[k2-1]: =a[i]; end; write (a, y); end.