Язык программирования - pascal программный комплекс, выполняющий действия над матрицей: – введение -- поиск среднего арифметического каждой строки – поиск максимального из диагональных элементов – поиск произведения элементов последней строки – поиск суммы элементов каждого столбца – выведение. + сделать это через - а) выполнить процедурную декомпозицию программного комплекса согласно варианта . б) выполнить модульную декомпозицию предложенной . в) выполнить библиотечную декомпозицию предложенной .

Не больше - значит, меньше или равно. они все сказали правду. среди них 0 брехунов, а это не больше 1, не больше 2, не больше 3 и не больше 4. причем тот, кто сказал "не больше 4" - сказал правду, их же всего 4. если среди них есть один брехун, то опять-таки все сказали правду. потому что один - это не больше одного. получаем противоречие. если среди них два брехуна, то соврал только один: который сказал "не больше одного". опять противоречие. если брехунов трое, то соврали только двое, которые сказали "не больше 1" и "не больше 2".

//писал на скорую руку, должно все правильно работать var a,plus,minus,d: integer; c: array[1..50] of integer; begin plus: =0; minus: =0; for a: =1 to 50 do c[a]: =random(20)-10; //заполняем массив рандомо for a: =1 to 50 do//проверям условие if ((c[a]> 0) and (c[a]< > 0)) then plus: =plus + 1 else if ((c[a]< 0) and (c[a]< > 0)) then minus: = minus + 1; writeln(plus,' '); //кол-во полож writeln(minus,' '); //кол-во отриц if (plus> minus)then writeln('положительных') else writeln('отрицательных'); end.