Определите заполнения массива. randomize;for i:=1 to 10 do a[i] :=random(52) 1.с оператора присваивания ( случайными числами) 2.нет верного ответа3.ввод каждого значения с клавиатуры ​

1.

Объяснение:

Программе задаётся цикл от 1-го до 10-го элемента заполнить массив любыми(случайными) числами интервала 0-52.

сноска — это ссылка вне основного текста на источник информации, использованный при написании статьи, или комментарий. ссылка создаётся с соответствующих тегов или шаблонов, которые нужно вставить после поясняемой части текста.

в окончательном тексте сноски размещаются автоматически в разделе «примечания». также автоматически после фрагмента поясняемого текста ставится знак сноски (цифра или значок), связывающий поясняемый текст со сноской, а в «примечаниях» перед сноской ставится значок возврата к поясняемому тексту. если кликнуть мышкой по знаку сноски, то текст переместится к сноске, если по значку возврата — то к поясняемому тексту.

ответ:

на форму поставил компонент memo

в edit1 и edit2 вводим значения строк и столбцов

для цикла for i: = for j: =

на кнопке следующий код

объяснение:

procedure tform1.button1click(sender: tobject);

  var i,j: integer; s: string;

begin

  a: = strtoint(edit1.text);

  b: = strtoint(edit2.text);

 

    for i: = 1 to a do begin

          s: = '';

    for j: = 1 to b do

      s: = s+'   '+inttostr(i*j);

      memo1.lines[i-1]: = s;

    end;

end;