Одномерный массив из 7 элементов заполнить случайным образом числами от 5 до 9. заменить все элементы массива равные 7 единицами. вывести на экран монитора первоначальный и преобразованный массивы в строчку.

Var     i: integer;   a: array[1..7]of integer; begin writeln('исходный массив: '); for i: =1 to 7 do   begin   a[i]: =random(5,9);   write(a[i]: 4);   end; writeln; for i: =1 to 7 do   if a[i]=7 then a[i]: =1; writeln('преобразованный массив: ');   for i: =1 to 7 do   write(a[i]: 4); end.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var (n,m): =readinteger2('количество строк и столбцов в матрице: ');   var a: =new integer[n,m];   for var j: =0 to m-1 do       if j.iseven then a.setcol(j,range(n*j+1,n*(j+)       else a.setcol(j,range(n*(j+1),n*j+1,-1).toarray);   a.println(4) end. пример количество строк и столбцов в матрице: 3 4     1    6    7  12     2    5    8  11     3    4    9  10

Использовать чертежник алг нач опустить перо сместиться на вектор (0,7) сместиться на вектор (3,-3) сместиться на вектор (3,3) сместиться на вектор (0,-7) поднять перо сместиться на вектор (3,0) опустить перо сместиться на вектор (0,7) сместиться на вектор (4,0) сместиться на вектор (1,-1) сместиться на вектор (0,-1) сместиться на вектор (-1,-1) сместиться на вектор (-4,0) поднять перо сместиться на вектор (4,0) опустить перо сместиться на вектор (1,0) сместиться на вектор (1,-1) сместиться на вектор (0,-2) сместиться на вектор (-1,-1) сместиться на вектор (-5,0) поднять перо сместиться в точку (0,0) кон