Ответ во вложениях, с решением
#include <iostream>
<span>using namespace std;</span>
<span>int main()</span>
{
setlocale(LC_ALL,"");
double R,S;
cout<<"Введите радиус окружности: ";
cin>>R;
S=3.14*R*R;
cout<<"Площадь круга = "<<S<<""<<endl;
return 0;
}
program shegor2003;
var a:array[1..10] of integer;
i, temp:integer;
begin
for i:= 1 to 10 do
a[i]:=random(11);
writeln('Исходный массив:');
for i:= 1 to 10 do
write(a[i]:3, ' ');
writeln;
temp:=a[1];
a[1]:=a[10];
a[10]:=temp;
writeln('Преобразованный массив:');
for i:= 1 to 10 do
write(a[i]:3, ' ');
end.