Напишите прогу на языке с
ввести количество строк(n) и столбцов(m) динамической матрицы, сгенерировать массив типа double и саму матрицу [-40,5; 40,5],выделить память, вывести сгенерированную матрицу построчно(2 знака в дробной части).​

1. program a1; var s,m: integer; begin writeln('vvedi vozrast sashi : '); read(s); writeln('vvedi vozrast mashi : ');   read(m); if s> m then writeln('sasha starshe mashi') else writeln('masha starshe sashi'); end.2.program a1; vars,m: integer; beginwriteln('vvedi vozrast sashi : '); read(s); writeln('vvedi vozrast mashi : ');   read(m); if s=m then writeln('sasha i masha rovestniki') elseif s> m then writeln('sasha starshe mashi') else writeln('masha starshe sashi'); end.3.program a1; vara,b,c,d: real; beginreadln(a); readln(b); readln(c); if ((b< a) and (b< c)) then begin d: =a; a: =b; b: =d; end; if ((c< a) and (c< b)) then begin d: =a; a: =c; c: =d; end; if ((a> b) and (a< c)) then begin d: =b; b: =a; a: =d; end; if ((c< b) and (c> a)) then begin d: =b; b: =c; c: =d; end; if ((a> c) and (a> b)) then begin d: =c; c: =a; a: =d; end; if ((b> c) and (b> a)) then begin d: =c; c: =b; b: =d; end; writeln(a,'< ',b,'< ',c); end.

Program prog; uses crt; var a: array[1..10] of integer;       s,i,max, min: integer;       sr: real; begin clrscr; min: =a[1]; for i: =1 to 10 do begin   write('a[',i,'] = ');   readln(a[i]);   end;   for i: =1 to 10 do begin   s: =s+a[i];   if a[i]> max then max : = a[i];   if a[i]< min then min : = a[i];   end; sr: =s/10; writeln; writeln('сумма всех элементов массива s = ', s); writeln('среднее арифметическое sr = ', sr: 0: 1); writeln('max = ', max); writeln('min = ', min);     end.