Дана программа (см фото)
Было проведено 9 запусков этой программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(1, 2); (11, 2); (1, 12); (11, 12); (–11, –12);
(–11, 12); (–12, 11); (10, 10); (10, 5)
Сколько было запусков, при которых программа напечатала «НЕТ Дана программа (см фото) Было проведено 9 запусков этой программы, при к">
159
473
Ответы на вопрос:
Var a: array[1..5] of integer; i,max,c,n,f: integer; procedure ho; begin if a[i]> max then begin max: =a[i]; c: =i; end; end; begin for i: =1 to 5 do begin a[i]: = random(15)+2; write(a[i],' '); end; max: =a[1]; c: =1; for i: =1 to 5 do ho; writeln; writeln('максимум: ',max); f: =c; if f=1 then begin max: =a[2]; for i: =2 to 5 do ho; writeln('вторичный максимум: ',max); exit; end; if f< 5 then begin max: =a[f+1]; for i: =f+1 to 5 do ho; n: =max; end; if f> 1 then begin max: =a[1]; c: =f; for i: =1 to c-1 do ho; if max> n then writeln('вторичный максимумì: ',max); if max< n then writeln('вторичный максимум: ',n); end; end.
Популярно: Информатика
-
Alinka2i328.02.2023 11:32
-
Evlampy301.09.2020 12:21
-
cat991306.07.2021 01:54
-
Ромчик041219.10.2022 17:12
-
Снежана201807.04.2022 16:58
-
соняпросоня14.10.2020 14:31
-
katyasvk27.09.2020 23:07
-
sofyabelik28.03.2020 12:58
-
victory6625.01.2021 23:26
-
keklolcheburek124317.05.2020 12:21