Решите задачу по информатике

Question

Информатика: Решите задачу по информатике​

MUSIC555 · Accepted Answer

Const   n = 11; var   x: array[1..n] of integer;   i, k, d, s: integer; begin   Randomize;   Writeln( Элементы массива );   k := 0; s := 0;   for i := 1 to n do   begin     d := Random(11) - 5;     Write(d:3);     if (i mod 2) = 0 then begin { четное место }       if d = 1 then Inc(k);       x[i] := d     end     else begin       if d 0 then s := s + d;       x[i] := sqr(d)     end   end;   Writeln;   Writeln( Результирующий массив );   for i := 1 to n do Write(x[i]:3);   Writeln;   Writeln( Количество...

Решите задачу по информатике​

MOGZ ответил