Записать программу для ввода массива из 6 случайных чисел промежутка [0...55] Вывести этот массив в строчку

1

Ответы и объяснения

2014-02-11T18:28:55+04:00
VAR
   i: Byte;
   a: Array [1..6] of Byte;
BEGIN
   for i := 1 to 6 do Read(a[i]);
   
   for i := 1 to 6 do Write(a[i],' ');
END.