Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51)-10;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then k:=k+1;
if k>0
then writeln('В массиве есть отрицательный элемент(ы)')
else writeln('В массиве все элементы >=0');
end.
Пример:
<span> -5 6 -4 13 -1 -6 9 30 36 36
В массиве есть отрицательный элемент(ы)</span>
1 1 4
2 вообще-то все отсносятся к заразервированным
3 3
4 1
Новосибирск и (красноярск и хабаровск или норильск)
570-436=134