Program kek;type mas= array [1..10] of integer;var i,c: integer;a:mas;beginrandomize;for i:=1 to 10 dobegina[i]:=random(30)-20;end;writeln('Результат:');c:=0;for i:=1 to 10 dobeginif a[i]<0 then writeln(i,' -Элемент массива является отрицательным, значение которого равно:',a[i]);c:=c+1;end;if c=0 thenbeginwriteln('Отрицательные числа в массиве отсутствуют');end;c:=0;for i:=1 to 10 dobegin if a[i]>0 thenc:=c+1;end;if c>0 thenwriteln('Количество положительных элементов массива равно: ',c)elsewriteln('Положительные числа в массиве отсутствуют')end.
