Решите, пожалуйста, в паскале.
1) Одномерный массив из 10 элементов задан датчиком случайных чисел на интервале от -1 до 6. Найти произведение квадратов отрицательных элементов массива, массив вывести в строку.
2) Одномерный массив задан формулой A[i]=21-1. Найти полу сумму элементов массива.

Если правильно понял 2 задачу, то вот:

var i, k:integer;s, x:real;A:array [1..100000000] of integer;beginwriteln ('Введите количество элементов массива');readln (k);For i:=1 to k dobeginA[i]:=2*i-1;x:=x+A[i];end;s:=x/2;writeln (s);end.

1 задачаvar a, b, s, i, k:integer;z:array[1..10] of integer;begins:=1;For i:=1 to 10 dobeginz[i]:=random(16)-10;if z[i]<0 thenbegink:=sqr(z[i]);s:=s*k;end;end;For i:=1 to 10 dobeginwrite (z[i], ' ');end;writeln ();writeln ('Произведение квадратов равно ', s);end.