Программа: const m=7; n=8; var t:array[1..m,1..n] of integer; i,j:integer; s,max:real; begin Randomize; writeln('Результаты измерений:'); writeln(' 0 3 6 9 12 15 18 21'); writeln(' '); for i:=1 to m do begin for j:=1 to n do begin t[i,j]:=random(10)-5; write(t[i,j]:4); end; writeln; end; max:=-200; for i:=1 to m do begin s:=0; for j:=1 to n do s:=s+t[i,j]; s:=s/n; if s>max then max:=s; end; writeln('max = ',max:5:1); end.
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;
ответ на картинке
Объяснение: