Question

Массивы в паскале. Дан массив Л(10). Заполнить его целыми числами из отрезка [-12;29]. Вычислить корень квадратный из каждого элемента массива и вывести полученный массив на экран

Answer 1

var

 l:array [1..20] of real;

 i:integer;

begin

 for i:=1 to 20 do

   begin

     l[i]:=random(42)-12;

     write(l[i]:3,'  ');

     if l[i]>=0 then

       begin

         l[i]:=sqrt(l[i]);

         writeln(l[i]:4:2);

       end

         else

           writeln('error');

   end;

end.