const N=30; var i, s0, k, a: integer; b: array [1..N] of integer; begin readln(a); s0:=0; k:=0; randomize; for i:=1 to N do begin b[i]:=random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000} if (b[i]<0) then s0:=s0+b[i]; if (b[i]>0) and (b[i]<=a) then inc(k); end; if (s0<>0) then writeln(s0, ' - сумма отрицательных чисел') else writeln('отрицательных чисел нет'); if (k<>0) then writeln(k, ' - количество положительных чисел, не превосходящих числа А') else writeln('положительных чисел не превосходящих числа А, нет'); readln; end.
A - Аня, b - Боря, v - Вася, g - Галя, d - Даша, i - Иван. a>b, v>g, d<i, v<a, d>b; Мы знаем, что а>b, значит ,что b<v; Мы знаем, что d>b, значит ,что b<i; Мы знаем, что v>g и v<a, значит ,что b<v; Следовательно мы нашли обладателя меньшей флешки. Им стал Боря. Раз b самый меньший, то в дальнейших расчетах его можно не использовать. Мы знаем, что a>v, а это значит ,что a>g т.к. v>g ! Мы знаем, что i>d и что d>b, а отношения a к i из условия найти нельзя... Поэтому обладателем самой большой флешки может быть как и Аня так и Иван.
Это всё наше будущее, поэтому учи, чтобы знать будущее.