Написать программу формирования массива из 15 целых чисел от 0 до 50 и вывод массива на экран

Написать программу формирования массива из 15 целых чисел от 0 до 50 и вывод массива на экран.

    program picaso; uses crt;
    type vector=array[1..100] of integer;
    var a:vector;
        i,n:byte;
    begin clrscr;
        writeln('n:');readln(n);
        for i:=1 to n do
            a[i]:=Random(50);

        for i:=1 to n do
            write(a[i],' ');
    end.

    универсальный метод из скольки чисел хочешь (n это номер чисел)

     

     

  • program picaso; uses crt;
    type vector=array[1..100] of integer;
    var a:vector;
        i:byte;
    begin clrscr;
        for i:=1 to 15 do
            a[i]:=Random(50);

        for i:=1 to 15 do
            write(a[i],' ');
    end.

     


See also: