Дан массив . о пределить номер первого и последнего отрицательных элементов . вычислить сумму этих элементов в паскале

begin

  var r : = arrrandom(20, -50, 50);

  r.println;

  var i : = r.indexesof(t -> t < 0);

  println(i.first + 1, i.last + 1);

  println('сумма равна', r[i.first] + r[i.last])

end.

-9 41 -47 -25 22 -35 44 -2 -10 17 -17 -17 5 20 47 -43 3 -45 1 33

1 18

сумма равна -54

1) элемент с номером k заменяется на 2

var

a: array [1..20] of integer;

i,n,k: integer;

begin

readln(n);

for i: =1 to n do

begin

a[i]: =random(50);

write(a[i]: 3);

end;

writeln;

readln(k);

a[k]: =2;

for i: =1 to n do

write(a[i]: 3);

end.

2) элемент вставляется в массив остальные элементы сдвигаются вправо

var a: array [1..20] of integer; i, n, k: integer;

begin readln(n); for i : = 1 to n do begin a[i] : = random(50); write(a[i]: 3); end; writeln; readln(k); for i: =n+1 downto k do a[i]: =a[i-1]; a[k] : = 2; for i : = 1 to n+1 do write(a[i]: 3); end.

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.