Написать программу. Программа должна осуществлять ввод и печать исходного одномерного массива; выполнять в соответствии с условиями действия и печатать результаты. Вычислить сумму ненулевых чисел, стоящих на четных местах, и подсчитать количество чисел, принадлежащих промежутку [M, K].

var a:array[1 ... 10,1 ... 10]of integer;

i, j, m, k, s:integer;

begin

for i:=1 to 10 do for j:=1 to 10 do readln (a[i, j]) ;

for i:=1 to 10 do begin for j:=1 to 10 do write (a[i, j],' ') ; if j=10 then writeln; end;

for i:=1 to 10 do

for j:=1 to 10 do

if (a[i, j]0) and (i mod 2=0) then s:=s+a[i, j];

writeln (s) ;

readln (m, k) ;

s:=0;

for i:=1 to 10 do

for j:=1 to 10 do

if (a[i, j]>=m) and (a[i, j]<=k) then s:=s+1;

writeln (s) ;

end.