Как сделать теперь без массива (паскале)?
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.
Как сделать теперь без массива (паскале)?
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.
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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Без использования массива в Паскале, можно просто объявить три переменные для хранения случайных чисел и сравнивать их напрямую:
program WithoutArray;var
nm1, nm2, nm3, j, l: integer;
begin
nm1 := Random(20);
nm2 := Random(20);
nm3 := Random(20);
writeln('nm1 = ', nm1);
writeln('nm2 = ', nm2);
writeln('nm3 = ', nm3);
writeln();
if nm1 < nm2 then
j := 2
else
j := 1;
if nm2 < nm3 then
j := 3;
if nm1 = nm2 then
l := 1;
if nm1 = nm3 then
if l = 0 then
l := 2
else
l := 4;
if (l <> 4) and (nm2 = nm3) then
l := 3;
case l of
1: writeln('nm1 = nm2');
2: writeln('nm1 = nm3');
3: writeln('nm2 = nm3');
4: writeln('Все числа равны!');
end;
writeln('большее число - nm[', j, '] = ', nm3);
end.
В этом примере переменные nm1, nm2 и nm3 используются для хранения трех случайных чисел, после чего проводится сравнение и вывод результата на экран.