Ботаника

Составьте программу, которая формирует массив из 12 случайных чисел принадлежащих промежутку -5;5, и выводит эти числа в

Составьте программу, которая формирует массив из 12 случайных чисел принадлежащих промежутку -5;5, и выводит эти числа в

  • var

    a:array 1..12 of integer;

    i:integer;

    begin

    randomize;

    for i:=1 to 12 do ai:=random(11)-5;

    for i:=1 to 12 do writeln(ai);

    readln;

    end.

  • var a: array1..12 of real;

    i: integer;

    begin

    randomize;

    for i:=1 to 12 do ai:=random(11)-5;

    for i:=1 to 12 do writeln(ai);

    readln;

    end.