Var
a:array[1..1000000]of integer;
i,min,n,c:integer;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
if i = 1 then
min:=a[i];
if a[i]<min then
begin
min:=min+a[i] ;
a[i]:=min - a[i];
min:=min - a[i];
c:=i;
end;
end;
writeln('a[',c,']=',min);
end.
Из условия видно, что спрашивается количество чисел в массиве, больших 25.
Ответ: 6.
Вообще-то это уже в двоичной системе. 0 и 1 - Двоичная система.
Мое мнение: Технология будет улучшатся,а тем временем будут погибать люди.Скоро вместо людей будут роботы,которые будут владет нашей планетой.За год из за технологии погибает 3 миллиона человека,это не так мало как мы думаем,ведь у каждого из них была возможность жить,но всё не так.Наше будущее-в наших руках.
var
i, b: integer;
begin
b := 0;
for i := 1 to 100 do
if (i mod 2 <> 0) then b := b + i;
writeln(b);
end.