<h3>// PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var a:=MatrRandom(5,5,-99,99);
a.Println(4);
(4*a.ColCount*'-').Println;
$'Сумма чисел в пятом столбце: {a.Col(4).Sum}'.Println
end.
1/
var i:integer;
begin
for i:=1 to 20 do begin
if i mod 2=1 then write(i, ' ');
end;
end.
2/
var i:integer;begin
for i:=15 to 40 do begin
if i mod 2=0 then write(i,' ');
end;
end.
На картинке все показано.
Ответ: 100010