Все решите любые 3 только в степени двойки!

Program matr; uses crt; const m=(число); n=(число); var a: array[1..m,1..n] of integer; i, j: integer; max: real; k: boolean; function prost(x: integer): boolean; begin prost: =false; if x> 0 then if (x=1) or (x=2) then prost: =true else for i: =2 to x-1 do if mod(x, i) =0 then prost: =true; end; begin clr scr; for i: =1 to m do begin for j: =1 to n do begin write(' a[i,j] = '); read(a[i, j]) end; writeln end; max: =abs a[1,1]; k: =false; for i: =1 to m do for j: =1 to n do begin if abs(a[i, j]) > abs(max) then max: = a[i, j]; if prost(a[i, j]) then k: =true end; writeln('максимальный по модулю элемент равен ', max); if k then wrteln('матрица содержит хотя бы один простой элемент') else writeln('матрица не содержит простых элементов'); readln end.

1) var e: array[1..11]of integer;       i,k: integer; begin   for i: =1 to 11 do   begin     e[i]: =random(17)-15;     write(e[i],' ');     if e[i] mod 5=0 then k: =k+1;   end;   writeln;   write('kol-vo elem krat 5: ',k); end. 2) var e: array[1..8]of integer;       i,s,k: integer; begin   for i: =1 to 8 do   begin     e[i]: =random(20)+1;     write(e[i],' ');     if e[i] mod 2=1 then s: =s+e[i];     if e[i] mod 3=0 then k: =k+1;   end;   writeln;   writeln('summa nechet elem: ',s,' kol-vo elem krat trem: ',k); end. 3) var e: array[1..14]of integer;       i: integer; begin   write('nachalni massiv: ');   for i: =1 to 14 do    begin     e[i]: =random(21)-10;     write(e[i],' ');   end;   writeln;   write('izmeneni massiv: ');   for i: =1 to 14 do   begin     if e[i]< 0 then e[i]: =0                 else e[i]: =e[i]*(-1);   write(e[i],' ');   end; end.