var
A:array [1..8] of byte;
i:integer;
begin
for i:=1 to 8 do readln(A[i]);
for i:=1 to 8 do writeln(A[i]);
for i:=8 downto 1 do
begin
if not Odd(A[i]) then writeln(A[i]);
end;
readln;
end.
Неверный ответ 1102, так как двочная система состоит из чисел 1 и 0
Компьютер - это универсальное программно управляемое устройство для обработки, хранения и передачи информации
<em>// PascalABC.NET 3.2, сборка 1467 от 02.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,6,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var t:=a.ElementsWithIndexes.MinBy(x->x[2]);
Writeln('Min: A[',t[0]+1,',',t[1]+1,']=',t[2])
end.
<u>Пример</u>
*** Исходный массив ***
-30 55 92 98 96 29
-41 -11 -94 72 -3 -91
64 48 10 10 -85 91
------------------------
Min: A[2,3]=-94
Комп-сущ.
Персональный, электронный - 2 прил
Вычисляет, обрабатывает, управляет - 3 гл.
Машина для передачи, хранения и обработки - 1 пр.
ЭВМ