Задан массив из 10 вещественных чисел. Поменять значениями второй и третий элемент массива.

...a[3]:=p;for i:=1 to 5 do begin write(a[i]:3); end;end.

...a[3]:=p;for i:=1 to 5 do begin write(a[i]:3); end; readln;end.

а разве вещественные ччисла не типа real?

var a:array[1..5] of integer; p:integer;beginfor i:=1 to 5 do begin   a[i]:=random(10)+1;  write(a[i]:3); end;p:=a[2];a[2]:=a[3];a[3]:=p;for i:=1 to 5 do begin  write(a[i]:3); end;end.