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

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

Пусть 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]lt;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]lt;0 then

    begin

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

      priz:=true;

    end;

    end;

  writeln;

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

  else writeln(нет отрицательных частей);

  end.

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