PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i := 1 TO n DO begin a[i] :=-5+ random(10); WRITE( a[i],' ' ); end; WRITELN; {пустой оператор вывода для разделения полученного массива и преобразованного} Вставить число k после последнего отрицательного элемента массива readln(k); {вводим число k} For i:=1 to n do IF a[i]
PROGRAM example1; const n=8; var a : ARRAY [1.. n] of NTEGER; i, j,k,s : INTEGER; BEGIN randomize; {заполняем массив случайными числами} FOR i := 1 TO n DO begin a[i] := 1+random(20) ; WRITE( a[i],' ' ); end; WRITELN; {пустой оператор вывода для разделения полученного массива и преобразованного} k:=n; i:=1; WHILE (i