дан массив из 10 целых чисел заполненный случайными числами из ...

Нюра

program mckd;

uses crt;

var a:=array [1..100] of integer;

      i,s:integer;

begin

randomize;

clrscr;

for i:=1 to 10 do

a[i]:=random(16);

for i:=1 to 10 do

s:=s+a[i];

if s mod 2 =0 then writeln('+') else ('-');

readln;

end.

С рандомом боюсь ошибся, но вроде по формуле