Ввести массив 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.