===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Число строк и столбцов массива:');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
var k := ReadInteger('Сколько первых элементов обработать?');
if not k.InRange(1, m * n) then
Println('Введено недопустимое значение')
else
begin // замена построчно
var r := k div n; // число полных строк
if r > 0 then
for var i := 0 to r - 1 do
for var j := 0 to n - 1 do
a[i,j] := -a[i,j];
for var j := 0 to k - r * n - 1 do
a[r,j] := -a[r,j];
a.Println(4)
end
end.
Второй вариант использует более продвинутые возможности PascalABC.NET. Замена выполняется единственным оператором.
begin
var (m, n) := ReadInteger2('Число строк и столбцов массива:');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
var k := ReadInteger('Сколько первых элементов обработать?');
if not k.InRange(1, m * n) then
Println('Введено недопустимое значение')
else
begin // замена построчно
a.Transform((p, i, j) -> n * i + j < k ? -p : p);
a.Println(4)
end
end.
Объяснение:
Мы живём в XXI веке, веке прогресса информационных технологий, поневоле вступая в информационную эпоху. Мир вокруг нас перенасыщен информацией, и где бы мы не находились, мы слышим рекламы, видим различные стенды с надписями, знаки и т.д.
Как правило, информационная технология ведёт к созданию интеллектуальных компьютерных систем. Благодаря компьютерам человечество достигло высокого уровня развития, как интеллектуального, так и технического. В связи с этим у человека появились новые возможности, но в тоже самое время новые обязанности.
Возможности, открывшиеся в связи с возникновением компьютерных технологий, практически неограниченные, с каждым годом они модернизируются.
Человек без труда может находить нужную информацию, общаться с людьми, делать покупки, оплачивать счета и др.
Как правило возможности влекут за собой следующие обязанности: непосредственно, обязанность нести ответственность за свои действия. Обязанность человека знать и использовать свои субъективные права и юридические обязанности.
