Question

Заполнить массив из 15ти элементов случайным образом целыми числами лежащими в отрезке (5,50).Вывести значения элементов в строку. (элементы разделены пробелом).

Answer 1

program zz;var a:array[1..15] of integer;i:integer;beginfor i:=1 to 15 dobegina[i]:=random(5,50);write(a[i],' ');endend.