Как сделать теперь без массива (паскале)? 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.
257
373
Ответы на вопрос:
Азапишите вместо 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] так как в программе цикл не используется, можно легко обойтись этими тремя переменными)
Популярно: Информатика
-
alina09092003111.10.2021 07:57
-
polina1981200401.04.2021 18:56
-
poulina1419.01.2021 01:47
-
lenapakhomowa24.01.2023 00:45
-
ангелина61829.03.2020 04:41
-
Sharю12.11.2021 13:11
-
dianaisaeva222.07.2021 16:45
-
zhenyakozyrkova12.11.2020 08:20
-
лол162119.10.2021 12:35
-
pavellolpanov18.08.2020 12:32