// PascalABC.NET 3.2, сборка 1344 от 22.11.2016 // Внимание! В более ранних версиях программа работать не будет! begin var d:=MatrRandom(4,4,-20,20); Writeln('Исходный массив'); d.Println(4); var s:=d[0,0]; for var i:=1 to 3 do begin d[i,i]:=d[i,0]; s+=d[i,i] end; Writeln('Полученный массив'); d.Println(4); Writeln('Сумма на главной диагонали ',s) end.
Чтобы изменить порядок фото в альбоме, зайдите в фотоальбом, нажмите справа вверху Редактировать, затем в правом углу на Порядок фото.
В программах для просмотра фотографий, которые Вам открывают изображения, предусмотрена функция Редактировать. Ее (функцию) можно отыскать открыв изображение, вверху. Там будет меню или панель инструментов, или другие кнопки для управления. Ищите там. Та программа, в которой просматриваете изображения, предусматривает поворот фото на 180 и 90 градусов, совершая поворот вправо/ влево.
// Внимание! В более ранних версиях программа работать не будет!
begin
var d:=MatrRandom(4,4,-20,20);
Writeln('Исходный массив'); d.Println(4);
var s:=d[0,0];
for var i:=1 to 3 do begin d[i,i]:=d[i,0]; s+=d[i,i] end;
Writeln('Полученный массив'); d.Println(4);
Writeln('Сумма на главной диагонали ',s)
end.
Пример
Исходный массив
14 8 -12 12
15 -9 -16 -6
18 -7 7 5
-7 -12 -10 -14
Полученный массив
14 8 -12 12
15 15 -16 -6
18 -7 18 5
-7 -12 -10 -7
Сумма на главной диагонали 40