Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Составить программу заполнения массива из 7 элементов числами от 1 до 30 с помощью генератора случайных чисел и вывести значения его элементов в строку через запятую

Ответ оставил Гость

Const n=7;
var a : array[1..n] of integer;   i : integer;
begin
Randomize;
for i:=1 to n do
 begin
  a[i]:=random(30)+1;
  write(a[i],,);
 end;
writeln;
end.