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

program n1; uses crt; const n=5; var x: array[1..n,1..n] of integer; a: array[1..n] of integer; i,p,s,j: integer; beginclrscr; randomize; for i: =1 to n do for j: =1 to n do x[i,j]: =random(100); j: =1; repeatfor i: =1 to n do if a[j]< x[i,j] then a[j]: =x[i,j]; write(a[j]: 4); j: =j+1; until j=n+1; p: =1; writeln; for i: =1 to n do if i mod 2=0 then s: =s+a[i] else p: =p*a[i]; writeln('proizvedenie =',p,',summa =',s); readlnend.

// pascalabc.net 3.2, сборка 1399 от 08.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(100,-1000,1000); a.println;   var imax: =a.indexmax;   var imin: =a.indexmin;   writeln('индекс минимального ',imin+1,', максимального ',imax+1);   if imin> imax then swap(imin,imax);   writeln('сумма на участке: ',a[imin: imax+1].sum) end. пример -65 273 -273 58 108 919 -114 -119 -848 -24 301 -497 348 -386 -235 421 -907 -891 -151 675 -185 89 -991 -276 -802 914 959 -64 848 911 573 -941 59 -522 -460 890 963 840 85 -932 -974 -110 -698 785 537 867 778 -889 239 -659 -972 655 665 -136 555 847 263 -998 -141 194 961 950 34 -758 403 242 444 -130 -927 -124 459 -747 25 -220 649 925 -214 -775 188 -668 -865 847 698 506 882 919 -606 -806 -76 -306 -374 960 -19 891 -892 -923 857 -940 -619 -706 индекс минимального 58, максимального 37 сумма на участке: 1711

1. var a: array[1..10] of integer; i,s: integer; begin randomize; for i: =1 to 10 do begin   a[i]: =random(81);   write(a[i]: 3);   end; writeln; s: =0; for i: =1 to 10 do if (a[i]> 50) and (a[i]< 60) then s: =s+a[i]; write ('s=',s); end. 2. var a: array[1..10] of integer; i,k: integer; begin randomize; for i: =1 to 10 do begin   a[i]: =random(81);   write(a[i]: 3);   end; writeln; k: =0; for i: =1 to 10 do if a[i]> 50 then k: =k+1; write ('k=',k) end.