Ответ:41 раз.
как сделал:
////////////////////
var k, i, n: Integer;
begin
n:=1;
k:=8;
while k>0 do
begin
i:=10;
while i<15 do
begin
writeln('Мне нравится паскаль');
n:=n+1 ;
i:=i+1;
end;
k:=k-1
end;
writeln(n);
end.
<em>var c:real;</em>
<em>begin</em>
<em> read(c);</em>
<em> writeln(c*2);</em>
<em>end.</em>
Море-орел-лото-очаг-гном-мышь...
Вот решение вашей задачи!
Const<span> N </span>= 10;
var
a: array[1..N] of integer;
i: byte;
b: integer;
begin
<span> </span>for<span> i</span>:=1 to<span> N </span>do
<span> </span>read(a[i]);
<span> </span>for<span> i</span>:=1 to<span> N </span>div 2 do begin
<span> b </span>:=<span> a</span>[i];
a[i] :=<span> a</span>[N-i+1];
a[N-i+1] :=<span> b</span>;
<span> </span>end;
<span> </span>for<span> i</span>:=1 to<span> N </span>do
<span> </span>write(a[i],' ');
<span> </span>writeln;
end<span>.</span>