Вывести ** экран 50 чисел от 1 до 999 Чтоб 40 были в строчку А последние 10 в столбик ...

Question

Вывести на экран 50 чисел от 1 до 999
Чтоб 40 были в строчку
А последние 10 в столбик
Через одномерный массив

Comments

А Вы уверены, что на экране 40 чисел, каждое из которых может занимать (мс пробелом) до четырех позиций, т.е. 160 символов поместится в строке?

Answer 1

Var
    i: integer;
    a: array[1..50] of integer;

begin
    for i := 1 to 50 do
    begin
        a[i] := random(999);
        write(a[i], ' ');
        if i >= 40 then writeln;
    end;
end.

Answer 2

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(50,1,999);
  a.Take(40).Println;
  a.Skip(40).Println(NewLine)
end.

Тестовое решение
164 67 626 431 758 259 924 741 796 179 989 880 813 112 832 970 662 970 558 5 833 343 694 379 297 192 565 147 611 302 284 925 784 98 61 895 907 190 208 679
55
195
206
597
664
762
201
452
965
298