Ответ:
форме, площадью, цветом ,
Uses crt;
const n=10;
var a: array [1..n] of integer;
x,min:integer;
begin
for x:=1 to n do begin
write('a[',x,']:');
readln(a[x]);
if a[x]>0 then min:=x;
end;
for x:=1 to n do
if (a[x]>0) and (a[x]<a[min]) then min:=x;
writeln;
write('a[',min,']:',a[min]);
<span>end.</span>
F(11) = F(10) + F(9) = F(9) + F(8) + F(8) + F(7) = F(8) + F(7) + F(8) + F(8) + F(7) = 3F(8) + 2F(7)
7 = 3F(8) + 4 => F(8) = 1.
F(8) = F(7) + F(6) <=> F(6) = F(8) - F(7) = 1 - 2 = -1.
F(7) = F(6) + F(5) <=> F(5) = F(7) - F(6) = 2 - (-1) = 3.
F(6) = F(5) + F(4) <=> F(4) = F(6) - F(5) = -1 - 3 = -4.
F(5) = F(4) + F(3) <=> F(3) = F(5) - F(4) = 3 - (-4) = 7.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ReadInteger('Введите целое число, не превышающее 9:');
if a<10 then Writeln('S2=',Range(a,10).Select(i->i*i).Sum)
else Writeln('Введенное значение больше 9')
end.
<u><em>Тестовое решение</em></u>
Введите целое число, не превышающее 9: -7
S2=525