program raf105;
var
dr: real;
day: integer;
a,b: boolean;
begin
dr:= 0.75;
while not(a) or not(b) do
begin
day:= day+1;
dr:= dr + dr/100*160;
dr:= dr - 0.6;
if day = 6
then begin
writeln('а) Через 6 дней в установке будет ',dr:0:2,' т. дрожжей');
a:= True;
end;
if (dr >= 9) and not(b)
then begin
writeln('б) Через ',day,' суток масса дрожжей достигнет порога 9 т.');
b:= True;
end;
end;
end.
PascalABC 3.4.2
static void Main(string[] args)
{
int N = 7;
int[,] mas = new int[N, N];
for (int i = 0; i < N; i++)
{
for (int j = 0; j < N; j++)
{
if (j == 0 || j == N - 1)
{
mas[i, j] = 4;
}
else if (i + j == N - 1)
{
mas[i, j] = 4;
}
else
{
mas[i, j] = 0;
}
}
}
for (int i = 0; i < N; i++)
{
for (int j = 0; j < N; j++)
{
Console.Write(String.Format("{0,3}", mas[i, j]));
}
Console.WriteLine();
}
Console.ReadKey();
}
Объяснение:
По скриншоту, я понял, это квадратный массив 7x7, если размерность другая - измените переменную N.
