и его элементы,найти позицию первого максимума среди
отрицательных чисел.
var A :array [1..100] of integer ;
I,N,max,N max:integer;
Begin
read(N);
For I:=1 to N do
read(A[I]);
max :=0;
for I:=1to N do
if A[I]< max then
max:=A[I];
for I:=1 to N do
if (A[I]<0) and (A[I]> max )then
Begin
max:=A[I];
N max:=I;
end;
for I:=1 to N do
write(A[I]);
write(N max);
end.
проверьте пожалуста задачку
используем теги для офорлмения кода!!!
Сообщение отредактировано: Altair -