Решите, пожалуйста, в паскале. 1) Одномерный массив из 10 элементов задан датчиком случайных чисел на интервале от -1

Условие первой задачи можно понять двояко. Поэтому высылаю два решения.

Пусть i – порядковый номер элементов массива а.

Программа на языке Pascal ABC может выглядеть так:

program zadaca1;

uses crt;

var i:integer;

a:array[1..10] of real; {Описание исходного массива}

begin

for i:=1 to 10 do  begin

a[i]:=random(6+1+1)-1; {Формирование массива случайным образом}

write(a[i],\' \'); {Вывод элементов исходного массива на экран}

end;

writeln;

for i:=1 to 10 do 

if a[i]<0 then

begin

a[i]:=sqr(a[i])*sqr(a[i]); {Формирование нового массива}

write(a[i],\' \'); {Вывод элементов нового массива на экран}

end else write(a[i],\' \')

end.

Или так:

Var a: array[1..10] of integer;

    i,s: integer;

    priz: boolean;

begin

  randomize;

  write(\'массив:  \');  s:=1;

  priz:=false;

  for i:=1 to 10 do

   begin

    a[i]:=random(6+1+1)-1;

    write(a[i],\' \');

    if a[i]<0 then

    begin

      s:=s*sqr(a[i]);

      priz:=true;

    end;

    end;

  writeln;

  if priz then    writeln(\'произв. квадратов отрицат. элем. = \',s)

  else writeln(\'нет отрицательных элементов\');

  end.

 А вот условие второй задачи некорректно.