(a, b, c) означает, что в 12-литровой a литров, в 7-литровой b, а в 5-литровой c.
0) (12, 0, 0)
1) (7, 0, 5)
2) (7, 5, 0)
3) (2, 5, 5)
4) (2, 7, 3)
5) (9, 0, 3)
6) (9, 3, 0)
7) (4, 3, 5)
8) (4, 7, 1)
9) (11, 0, 1)
10) (11, 1, 0)
11) (6, 1, 5)
12) (6, 6, 0)
Вариант а) отпадает, так как в 1 строке получим произведение 7 единиц=1, а должно получиться 0
Вариант б) отпадает, так как1 строке получим сумму 7 единиц=1, а должно получиться 0
В варианте В) прошла 1 строка, получили в итоге 0, но не прошла вторая строка. Получается 1, а должно быть равно 0
Остается вариант Г)
Если подставить значения, то все строки прошли тест.
Ответ: Г
Готово, даже удалось избежать создания самого массива)
11011 00100 01100 00001 11111
В О Р О Н
ответ ВОРОН
Ответ:
var
a: array [1..3] of Integer;
i, imin: Integer;
begin
for i := Low (a) to High (a) do begin
Write (i, ' число: ');
ReadLn (a [i]);
end;
imin := 0;
for i := Low (a) to High (a) do begin
if a [i] mod 2 = 0 then
if imin = 0 then
imin := i
else if a [i] < a [imin] then
imin := i;
end;
if imin <> 0 then
WriteLn ('Наименьшее четное = ', a [imin])
else
WriteLn ('Четных чисел нет.');
ReadLn;
end.