Информатика

Вальдилена

31 декабря, 03:44

Как сделать теперь без массива (паскале) ?

var nm:array of integer;

j, l:integer;

begin

nm: = new integer[3] (random (20), random (20), random (20)) ;

writeln ('nm[0] = ', nm[0]) ;

writeln ('nm[1] = ', nm[1]) ;

writeln ('nm[2] = ', nm[2]) ;

writeln () ;

if nm[0] < nm[1] then begin j:=1 end;

if nm[1] < nm[2] then begin j:=2 end;

if nm[0] = nm[1] then l: = 1;

if nm[0] = nm[2] then if l = 0 then l: = 2 else l: = 4;

if (l 4) and (nm[1] = nm[2]) then l: = 3;

case l of

1:writeln ('nm[0] = nm[1]') ;

2:writeln ('nm[0] = nm[2]') ;

3:writeln ('nm[1] = nm[2]') ;

4:writeln ('Все числа равны!') ;

end;

writeln ('большее число - nm[', j,'] = ', nm[j]) ;

end.