Question

Как сделать теперь без массива (паскале)? 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.

Answer 1

А запишите вместо 

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

так:

nm0:=random(20);
nm1:=random(20);
nm2:=random(20);

Опишите эти три переменные, а в коде просто замените 
nm0 вместо nm[0]
nm1 вместо nm[1]
nm2 вместо nm[2]

Так как в программе цикл не используется, можно легко обойтись этими тремя переменными)

Answer 2

Для выполнения этой задачи без использования массива вам нужно будет создать три отдельных переменных типа integer и использовать функцию random для генерации случайных чисел. Вот как может выглядеть ваш код на Pascal без массива:

cssCopy code
var
  num1, num2, num3, j, l: integer;
begin
  num1 := random(20);
  num2 := random(20);
  num3 := random(20);
  
  writeln('num1 = ', num1);
  writeln('num2 = ', num2);
  writeln('num3 = ', num3);
  writeln();
  
  if num1 < num2 then
    j := 1;
  if num2 < num3 then
    j := 2;
  
  if num1 = num2 then
    l := 1;
  if num1 = num3 then
    if l = 0 then
      l := 2
    else
      l := 4;
  if (l <> 4) and (num2 = num3) then
    l := 3;
  
  case l of
    1: writeln('num1 = num2');
    2: writeln('num1 = num3');
    3: writeln('num2 = num3');
    4: writeln('All numbers are equal!');
  end;
  
  writeln('The largest number is num', j, ' = ', max(max(num1, num2), num3));
end.

Этот код генерирует три случайных числа и затем находит наибольшее из них и сравнивает их между собой. Вы можете запустить этот код, чтобы увидеть, как он работает.