Паскаль ошибка: " нельзя преобразовать тип integer к array [1..40] of integer" var mas: array[1..40] of integer; i, max, max1: integer; begin max: =0; max1: =0; for i: = 1 to 40 do begin mas: = random(101); write(mas[i]: 4); if mas[i]> max then max: =mas[i]; end; for i: = 1 to 40 do if (mas[i]< > max) and (mas[i]> max1) then max1: =mas[i]; writeln; writeln(max1); end.

Всё логично - вы пытаетесь присвоить  mas: = random(101)в левой части стоит массив, а функция random возвращает числонадо написать mas[i] вместо mas.

объяснение:

  аристотель систематизировал философию по самым разным основаниям, однако в целом он выделял в ней следующие разделы.

теоретическая  философия, целью которой является не достижение практических результатов, а знание, как таковое. она, в свою очередь, делится на: а) , или натурфилософию, которая имеет дело с материальными объектами, подверженными изменению; b) , которая имеет дело с неизменяемым, но неотделенным (от материи); с) , которая изучает отделенное (трансцендентное) и недвижимое. (таким образом, включает в себя то, что мы называем естественной теологией.)

практическая  философия имеет дело главным образом с политической наукой, но в качестве подчиненных дисциплин изучает стратегию, и риторику, поскольку эти науки решают и в целом подчинены политической науке.

поэтическая  философия, так же как и практическая (включающая этические действия в более широком или политическом смысле), имеет дело не с действием, как таковым, а с его результатом и по своим целям и намерениям является теорией искусства1.

#include

#include

using namespace std;

int main()

{

    int m=10, n=8;

    int a[m][n];

    srand(time(0));

    for(int i=0; i

    {

        for(int j=0; j

        {

            a[i][j]=-99+rand()%199;

            cout < < setw(4) < < a[i][j];

        }

        cout < < endl;

    }

    cout < < endl;

    // сортировка

    int t;

    for(int i=0; i

    {

        for(int k=n-2; i> =0; i--)

            for(int j=0; j< =k; j++)

                if(a[i][j] > a[i][j+1])

                {

                    t=a[i][j]; a[i][j]=a[i][j+1]; a[i][j+1]=t;

                }

        for(int j=0; j

            cout < < setw(4) < < a[i][j];

        cout < < endl;    

    }

    return 0;

}

прилагается пример вывода.