В задании идет проверка сначала на то, что слева свободно или нет, потом на то, что есть ли стена справа.
Если это все засунуть в полное, то выглядеть будет так:
если слева свободно то
влево
все
иначе
закрасить
все
В полной форме проверяется условие на то, что свободно ли слева, если нет, то закрасить, не проводя проверку на то, есть ли справа стена.
Если, например слева будет стена, а справа будет свободно, то в данном случае ничего не должно произойти (если условие в неполной форме)
Но, если у нас будет условие в полной форме (выше описал его), то в данном случае, он проверит свободно ли слева, но у нас стена слева, то по условию он должен это закрасить, несмотря на то, что справа свободно.
Поэтому в одно нельзя засунуть, так как разные условия.
using System;
namespace ConsoleApp1
{
class Program
{
static void Main(string[] args)
{
int n,i,j, imin = 0;
double sum = 0;
Console.Write("Введите n: ");
n = Convert.ToInt32(Console.ReadLine());
double[,] A = new double[n, n];
Random r = new Random();
for (i = 0; i < n; i++)
{
for (j = 0; j < n; j++)
{
A[i, j] = r.NextDouble()*100 - 50;
Console.Write("{0,10:0.0}", A[i, j]);
if (A[i, j] < A[imin / 10, imin % 10]) imin = i * 10 + j;
}
Console.WriteLine();
}
i = imin / 10;
for (j = 0; j < n; j++) sum += A[i, j];
Console.WriteLine("Сумма элементов строки с наименьшим значением: {0,10:0.0}", sum);
}
}
}
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var F:real->real:=x->2*x*x-6*x+8;
var a,b:real;
Write('a b= '); Read(a,b);
Writeln('Min=',Range(a,b,9).Select(x->F(x)).Min)
end.
Пример
a b= -2 6
Min=3.50617283950617
2. Решение "по-школьному" ("дедушкин метод")
function F(x:real):real;
begin
F:=2*x*x-6*x+8
end;
var
a,b,y,h,min:real;
i:integer;
begin
Write('a b= '); Read(a,b);
h:=(b-a)/9;
min:=F(a);
for i:= 1 to 9 do begin
y:=F(a+i*h);
if y<min then min:=y
end;
Writeln('Min=',min)
end.
Пример
a b= -2 6
Min=3.50617283950617