1: набрать и протестировать на компьютере программу, организующую ввод -вывод двумерного массива целых чисел 3х4. для ввода и вывода использовать процедуры, которые будут вызываться в основной программе. текст программы: program prim; type vector=array[1..3] of integer; matr=array[1..4] of vector ; var x: matr; {процедура ввода в режиме диалога} procedure wwod(var a: matr; name: char); begin for i: =1 to 3 do for j: =1 to 4 do begin write(name,'[',i,', j]='); readln(a[i,j]); end end; {процедура вывода} procedure wywod(a: matr); var i: integer; begin for i: =1 to 3 do begin for j: =1 to 4 do write(a[i,j]); writeln; end; end; {основная программа} begin wwod(x, 'x'); writeln ('ввод окончен.'); writeln ('вывод: '); wywod(x); end. 2: видоизменить программу, добавив в нее описание и вызов процедуры, преобразующей введенный массив по следующему правилу: каждый элемент массива увеличивается на 4 - a[i,j]: =a[i,j]+4; .

1. большое количество ошибок в коде. - в нескольких местах в процедурах не описаны переменные i,j - в циклах неверно указано условие окончание цикла - неправильно описаны переменные в заголовке процедур 2. после исправления ошибок и добавления процедуры p4 (вторая часть ) код программы будет таким: program prim;   type vector=array[1..4] of integer;       matr=array[1..3] of vector ;   var x: matr; {процедура ввода в режиме диалога} procedure wwod(var a: matr; name: char);   var i,j: integer;   begin       for i: =1 to 3 do       for j: =1 to 4 do           begin               write(name,'[',i,',', j,']=');               readln(a[i,j]);           end;       end; {процедура вывода} procedure wywod(var a: matr);   var i,j: integer;   begin       for i: =1 to 3 do           begin               for j: =1 to 4 do               write(a[i,j]);               writeln;           end;   end; {каждый элемент массива увеличивается на 4} procedure p4(var a: matr);   var i,j: integer;   begin       for i: =1 to 3 do           begin               for j: =1 to 4 do                   a[i,j]: =a[i,j]+4;           end;   end; {основная программа} begin   wwod(x, 'x');   writeln ('ввод окончен.');   writeln ('вывод: ');   wywod(x);   p4(x);   wywod(x); end. тестовое решение: x[1,1]=2 x[1,2]=2 x[1,3]=2 x[1,4]=2 x[2,1]=2 x[2,2]=2 x[2,3]=2 x[2,4]=2 x[3,1]=2 x[3,2]=2 x[3,3]=2 x[3,4]=2 ввод окончен. вывод: 2222 2222 2222 6666 6666 6666

Да, можно надо в настройках просто выбрать, что формат 97-2003