Контрольная работа: Язык программирования Turbo Pascal

if x='j' then a:=j;

end;

end;

nomi:=a;

end;

procedure create;

var i,j,x,e:integer;

f:text;

ch: char;

path,s: string;

begin

case t of

1: begin {random}

randomize;

writeln('Vvedite razmer matrici');

write('n='); readln(k1);

write('m='); readln(k2);

for i:=1 to k1 do

for j:=1 to k2 do

b[i,j]:=random(21)-10;

end;{random}

2: begin{keyboard}

writeln('Vvedite razmer matrici');

write('n='); readln(k1);

write('m='); readln(k2);

writeln('Vvedite ',k1*k2,' elementov');

for i:=1 to k1 do

for j:=1 to k2 do

begin