Напишите три программы одномерного массива, тремя способами: с вводом через клавиатуры, через формулу, рандомом. кто шарит в этой теме, я дилетант.

ответ:

program arr1; // ввод с клавиатуры

var

  i: integer;

  a: array [1..10] of integer;

begin

  for i : = 1 to 10 do begin

    write ('введите ', i , 'число: ');

    readln (a [i]);

  end;

  for i : = 1 to 10 do

    write (a [i], ' ');

  readln;

end.

program arr1;   // ввод по формуле (i   * 2) можно поменять на другую

var

  i: integer;

  a: array [1..10] of integer;

begin

  randomize;

  for i : = 1 to 10 do

    a [i] : = i * 2;

  for i : = 1 to 10 do

    write (a [i], ' ');

  readln;

end.

program arr1;   // ввод рандомом - это то что на скриншоте экрана, только добавлено   randomize;   чтобы числа были не всегда одинаковые

var

  i: integer;

  a: array [1..10] of integer;

begin

  randomize;

  for i : = 1 to 10 do

    a [i] : = random (50);

  for i : = 1 to 10 do

    write (a [i], ' ');

  readln;

end.

объяснение: