Информатика 20 .хоть с чем то ..мне нужна ​

4.)

for (int i=0; i< =9; i++)

{

t1.text+="/n" + i;

}

5.)

for (int i=0; i< =40; i++)

{

sum+=i;

}

t1.text=" " + sum;

Ответ 3.  сравниваются сразу числа 7   и 5, 7> 5, зн. условие не выполняется и    с становится равным 1 дальше сравниваются 5 и 3, 5> 3, условие опять не выполняется, с = 2 3< 4 условие выполняется, они меняются местами. ( теперь ряд выглядит так   :   7 5 4 3 8 8 9 7 6 2), с =  2   3< 8 условие выполняется, числа меняются местами (7 5 4 8 3 8 9 7 6 2) с = 2 3 < 8 условие выполняется, числа меняются местами (7 5 4 8 8 3 9 7 6 2) с = 2 3 < 9,  условие выполняется,  числа меняются местами.  (7 5 4 8 8 9  3 7 6 2) с = 2 3< 7,    условие выполняется,числа меняются местами  (7 5 4 8 8 9 7 3 6 2) с = 2 3< 6,    условие выполняется,числа меняются местами  (7 5 4 8 8 9 7 6 3  2) с = 2 3> 2, условие не выполняется, с = 3

Const   n = 5;   l = 8; var   k: array[1..n, 1..l] of integer;   i, j, p: integer; begin   randomize;   for i : = 1 to n do   begin       for j : = 1 to l do       begin           k[i, j] : = random(100) - 50;           write(k[i, j]: 5);       end;       writeln   end;   p: =0;   for i : = 1 to n do       for j : = 1 to l do           if (k[i, j]< 0) and (k[i,j] mod 3=0) then p: =p+1;   writeln('найдено отрицательных элементов, кратных трем: ',p) end. тестовое решение:     27    42      0    25  -49    41  -16  -14   -26  -29    27  -16    10  -16    17    18     -4    10    17  -26    45  -23    48  -44   -47    28    25    -1  -31    24    35  -47   -39    49  -48    29  -42      2    -6    32 найдено отрицательных элементов, кратных трем: 4