Question

Программа заполняет случайнами числами от 0 до 9 массив из 7 элементов. Запишите вместо знака ? недостающий код. Примечание: не забывайте в конце строки поставить знак ; Program random; var a: array[1..7] of integer; i:integer; begin randomize; for i:=1 to 7 do begin ? write(a[i],' '); end; end.

Answer 1

Вместо знака ? вставить это:

a[i] := random(0,9);

Answer 2

Вам нужно сгенерировать случайное число от 0 до 9 и записать его в массив a на каждой итерации цикла. Вот как это можно сделать:

pascalCopy code
Program random;

var 
  a: array[1..7] of integer;
  i: integer;

begin
  randomize;
  for i := 1 to 7 do
  begin
    a[i] := random(10); // Генерация случайного числа от 0 до 9
    write(a[i],' ');
  end;
end.

Здесь random(10) генерирует случайное число от 0 до 9 включительно.