6. Скорее всего, имелось в виду что мешки открывались в случайном порядке, следовательно надо искать связь непосредственно между числами. Очевидный ряд 60, 30, 15 доведенный до неделимого пополам числа, строим такой же от 20 это 20, 10, 5, следовательно ответ: 10, 5.(Но это не точно) 8. Числа второй строки, это перевернутые квадраты чисел из первой. следовательно, под * число 18 (81 наоборот). 9. Название порядковых числительный по порядку (Первый, Второй, Третий, Четвертый, Пятый, Шестой), соответственно продолжение С В Д Д (Седьмой , Восьмой, Девятый, Десятый) 10.а) Каждое нечетное число это порядковый номер, каждое четное, уменьшенное на один предыдущее, начиная с десяти.(Ответ : 10, 5, 12, 4) б)Нечетные = предыдущее - 1 , начиная с 16, четное - то же самое, но ,начиная с 12. г) Нечетные - алфавит начиная с "Б" , четные - алфавит, начиная с "А".
PS: Тут фишка в том, что это надо видеть, но в этом тебе уже ни кто кроме тебя помочь не сможет.
Const n=5; var a:array[1..n,1..n] of integer; b:array[1..n] of integer; i,j,max,min,s:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(21); write(a[i,j]:4); end; writeln; end; max:=a[1,n]; for i:=2 to n do if a[i,n-i+1]>max then max:=a[i,n-i+1]; writeln('1. max = ',max); for i:=1 to n do begin min:=a[i,1]; for j:=2 to n do if a[i,j]<min then min:=a[i,j]; b[i]:=min; end; s:=0; writeln('2. Массив B'); for i:=1 to n do begin write(b[i]:4); s:=s+b[i]; end; writeln; writeln('3. среднее = ',s/n); for i:=1 to n do if b[i]>s/n then write(b[i]:4); writeln; end.
Такие задачи решаются с помошью таблицы и внимательно изучая факты она заполняется. Потом используется метод исключения.
Всю задачу расписывать очень долго. Я приведу только один пример:
Коршунов - самый молодой, а химик старше историка, следовательно Коршунов не химик (он не может быть старше кого бы то ни было, потому что самый младший).