С ПОМОЩЬЮ ГЕНЕРАТОРА ЦЕЛЫХ СЛУЧАЙНЫХ ЧИСЕЛ ЗАПОЛНИТЬ МАССИВ НА 30 ЭЛЕМЕНТОВ ВЕЛИЧИНЫ ИЗ ДИАПАЗОНА -25..36. пОЛУЧЕННЫЙ

var mas: array [1..30] of integer; k,i: integer; begin for i := 1 to 30 do begin mas[i]:=random(36)+1-random(25)+1; write(mas[i], \' \'); if mas[i]<0 then inc(k); end; writeln; writeln(\'Кол-во: \',k);for i:=1 to N do read(a[i]); for i:=1 to N div 2 do begin b := a[i]; a[i] := a[N-i+1]; a[N-i+1] := b; end; for i:=1 to N do write(a[i],\' \'); writeln;end.