Он более красочный и качество по лучше будет.
Program asd;
USES crt;
Const n=100;
Var A:array[1..n] of integer;
i,kp,ko:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=-20+Random(40);
Write(A[i]:4);
end;
Writeln;
kp:=0;
ko:=0;
For i:=1 to n do
begin
If A[i]>0 then kp:=kp+1;
If A[i]<0 then ko:=ko+1;
end;
Writeln('Кол-во положительных элементов: ' ,kp);
Writeln('Кол-во отрицательных элементов: ' ,ko);
END.
Самый хороший знак для предупреждения это на мой взгляд восклицательный знак "!"
1 действие
лифт, количество букв четно, добавляем г в начало - глифт, затем меняем буквы дмйху
2 действие
дмйху нечетно, ддмйху
меняем буквы
еенкцф - ответ