7 На алгоритмическом языке записана программа: : 1 алГ нач цел s, k Ввод S Ввод k если S 8 и k 8 то - id2140853920210604 от kkmla123 04.06.2021 15:51

Question

Информатика: 7 На алгоритмическом языке записана программа: : 1 алГ нач цел s, k Ввод S Ввод k если S 8 и k 8 то вывод ДА Иначе вывод НЕТ всё КОН Было проведено 9 запусков программы, при которых в качестве значений переменных ЅИk вводились следующие пары чисел: (1,1); (10,8); (9,-12); (6,6); (5,15); (-10,-8); (-10,11); (3,1); (1,8). Сколько было запусков, при которых программа напечатала НЕТ ? ответ: 8 На алгоритмическом языке записана программа: : 1 алг нач цел S, k Ввод S ввод k если S 5 или k 5 то Вывод ДА

kkmla123 · Accepted Answer

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
Println('*1*');
var a:=ArrRandom(10,-99,99); a.Println;
var imin:=a.IndexMin;
if imin=a.Length-1 then a:=a+Arr(100)
else a:=a[:imin+1]+Arr(100)+a[imin+1:];
a.Println;
Println('*2*');
a:=ArrRandom(10,-99,99); a.Println;
var imax:=a.IndexMax;
if imax=a.Length-1 then a:=a[:imax]
else a:=a[:imax]+a[imax+1:];
a.Println
end.

Тестовое решение:
*1*
-52 -66 -56 55 -94 -53 28 -94 61 61
-52 -66 -56 55 -94 100 -53 28 -94 61 61
*2*
62 -80 91 -85 -59 -58 20 23 -91 53
62 -80 -85 -59 -58 20 23 -91 53

MOGZ ответил