Массив(3х3) почему то не заполняется и получается нулевым. Где ошибка? Помогите разобраться
type massiv=array [1..10,1..10] of integer; var m:integer;a:massiv;
{заполнение массива} procedure zapolnenie (b:massiv); var i,j:integer; begin randomize; for i:=1 to 3 do begin for j:=1 to 3 do begin b[i,j]:=random(10); write(b[i,j],' '); end; writeln; end; readln; end;
{Нахождение max в массиве} function maxim (b:massiv):integer; var max,i,j:integer; begin max:=b[1,1]; for i:=1 to 3 do begin for j:=1 to 3 do begin if b[i,j]>max then max:=b[i,j]; end;end; maxim:=max; end;
begin zapolnenie(a); m:=maxim(a); writeln(m); readln; end.
Client
3.11.2009 0:30
procedure zapolnenie (b:massiv); // var добавь и randomize в теле программыц напиши,а не в процедуре
Redroza
3.11.2009 0:40
Спасибо, все работает
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.