Написать в паскаль. двухмерный массив размером m*n заполнить случайными целыми числами в интервале от -90 до 0. вывести полученный массив на экран в виде таблицы. найти количество элементов кратных 4 в последней строке.

Var a: array [1..200,1..200] of integer; i,k,m,n: integer; begin writeln ('введи размерность массива'); readln (m,n); for i: =1 to m do begin for j: =1 to n do begin a[i,j]: =random(91)-90; write (a[i,j]: 4); end; writeln; end; for j: =1 to n do if a[m,j] mod 4=0 then inc(k); writeln (k); readln; end.

Const   n = 5; m = 5; var   a: array [0..m, 0..n] of shortint;   i, b, c: integer; begin   for i : = 1 to m do   begin     for b : = 1 to n do     begin       a[i, b] : = random(-90, 0);       write(a[i, b]: 4);       if (i = m) then         if (a[i, b] mod 4 = 0) then           c += 1;     end;     writeln( (i = m) and (b = n) ? ' ' + c : '');   end;   writeln(); end.

//pascalabc.net версия 3.3.5 var  ar: array[0..3] of integer;   digits: array[0..9] of integer;   out: array[1..4, 1..7]of integer; begin   for var i : = 0 to 9 do     digits[i] : = 0;   var sum : = 0;   for var i : = 1 to 2 do   begin     out[i][1] : = 1053;     out[i][2] : = 1077;     out[i][3] : = 1074;     out[i][4] : = 1077;     out[i][5] : = 1088;     out[i][6] : = 1085;     out[i][7] : = 1086;   end;   out[4][1] : = 1053;   out[4][2] : = 1077;   out[4][3] : = 1074;   out[4][4] : = 1077;   out[4][5] : = 1088;   out[4][6] : = 1085;   out[4][7] : = 1086;   out[3][1] : = 1042;   out[3][2] : = 1077;   out[3][3] : = 1088;   out[3][4] : = 1085;   out[3][5] : = 1086;   out[3][6] : = 160;   out[3][7] : = 160;   var num : = readinteger('введите четырехзначное число: ');   ar[3] : = num mod 10;   ar[2] : = num div 10 mod 10;   ar[1] : = num div 100 mod 10;   ar[0] : = num div 1000;   for var i : = 0 to 3 do     digits[ar[i]] += 1;   for var i : = 0 to 9 do     try       sum += digits[i] div digits[i];     except       on system.dividebyzeroexception do    end;   for var i : = 1 to 7 do     write(chr(out[sum][i])); end.

Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! begin   var (a,b): =readinteger2('введите целые основание и показатель степени: ');   var biga: =biginteger(a);   var r: =biga**b;   if r> integer.maxvalue then begin       write($'внимание! результат {a}^{b} выходит за пределы типа integer, ');       writeln(integer.maxvalue, '! ');       writeln('тем не менее, ваш результат равен ',r)       end   else       writeln($'все ок. результат {a}^{b}={r}') end. примеры введите целые основание и показатель степени: 12 6 все ок. результат 12^6=2985984 введите целые основание и показатель степени: 5 30 внимание! результат 5^30 выходит за пределы типа integer, ! тем не менее, ваш результат равен 931322574615478515625