Mod - это остаток от числа. Значит, 9 mod 2 = 1
Var a,b,c:integer;
begin
readln(a, b);
c:=a+b;
writeln(c);
end.
01010100011001010111001101110100
//PascalABC.NET v3.3 1633
var arr: array [1..6, 1..6] of integer;
begin
for var i:=1 to 6 do
for var j:=1 to 6 do
arr[i, j]:=random(-49, 50);
writeln('Исходный массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
var num:=0;
for var i:=1 to 6 do
if arr[i, 2] < 0 then num += 1;
writeln('Количество отрицательных элементов второго столбца: '+num);
for var i:=1 to 6 do
for var j:=1 to 6 do
if arr[i, j] > 0 then arr[i, j]:=-49;
writeln('Новый массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
end.
1)3<=11
sum=0+3
i=3+2
2)5<=11
sum=3+3
i=5+2
3)7<=11
sum=6+3
i=7+2
4)9<=11
sum=9+3
i=9+2
5)11<=11
sum=12+3
i=11+2
6)13>11 Выполнено!
sum=15!