В одномерном массиве поменять местами 1й положительный и последний отрицательный элементы — Pascal(Паскаль)

uses crt;
type tmasi=array[1..100] of integer;
var a:tmasi; pos1,pos2,n,i:byte; buf:longint;
begin
  writeln('razmernost');
  readln(n);
  for i:=1 to n do
  begin
    writeln('Vvedite ',i,' element massiva');
    readln(a[i]);
  end;
  pos1:=0;
  for i:=1 to n do
  if a[i]>0 then begin pos1:=i;break;end;
  pos2:=0;
  for i:=1 to n do
  if a[i]<0 then pos2:=i;
  
  if (pos1=0) then begin writeln('Vse otr');exit;end
              else if pos2=0 then begin writeln('Vse polojitelnie');exit;end;
  buf:=a[pos1];
  a[pos1]:=a[pos2];
  a[pos2]:=buf;
  writeln('New massiv');
  for i:=1 to n do
  write(a[i],',');
  readln;
end.

Leave a Comment

66 − = 64