Ввести массив a(n), n=7. определить порядковый номер элемента, значение которого равно 49. поменять местами элементы, равные 49 и первый элемент массива.

Program Z1;

uses crt;

var A:array [1..7] of integer;

    x,z,i:integer;

begin

  ClrScr;

  for i:=1 to 7 do

    readln (A[i]);

  Clrscr;

  for i:=1 to 7 do

    write (A[i]:4);

  writeln;

  for i:=1 to 7 do

    if A[i]=49 then x:=i;

  z:=A[1];

  A[1]:=A[x];

  A[x]:=z;

  for i:=1 to 7 do

    write (A[i]:4);

  readln

end.