Написать в паскаль. двухмерный массив размером 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.

первое

заголовок: уходид из дома

4.порощаться

6.выключить свет,газ,

второе

заголовок: приход в квартиру

3.поверни ключ

4.вынь ключ из скважины