Free Pascal
var
a : array of array of integer;
b : array of integer;
s, i, j, n, m : integer;
begin
writeln('Введите кол-во строк:');
readln(m);
writeln('Введите кол-во столбцов:');
readln(n);
randomize;
setlength(a, n);
setlength(b, m);
for i:=0 to n-1 do
setlength(a[i], m);
for j:=0 to m-1 do begin
s:=0;
for i:=0 to n-1 do begin
a[i,j] := random(50) - 25;
if a[i,j] <0 then inc(s);
write(a[i, j], ' ');
end;
b[j]:=s;
writeln();
end;
writeln('--------------------------');
for j:=0 to m-1 do
writeln(j+1,' строка = ', b[j]);
end.
a = -3
Объяснение:
1) Инициализация. a := 14, b := 9, c := 6
2) Проверка условия (a-b) > c: 14-9 > 6 - неверно - переход по ветке "Нет"
3) Присваивание a := c-b => a := 6-9 = -3
4) Вывод a = -3