Укажите какая из перечисленных систем являются наиболее надежными в многопользовательском режиме: (укажите несколько вариантов ответа) 1) windows 2000 2) windows me 3) windows 95/98 4) windowsnt 5) windows xp

4) windows nt - это и есть правильный ответ.

ответ:

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.

объяснение:

ответ:

program arrmax;

var

  i, i1, i2, amax: integer;

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

begin

  randomize;

  for i : = 1 to 10 do   // заполнение массива случайными числами

    a [i] : = random (11);

  for i : = 1 to 10 do   // вывод на экран элементов массива

    write (a [i], ' ');

  amax : = -1;

  i1 : = -1;

  for i : = 1 to 10 do   // поиск первого максимального элемента

    if a [i] > amax then begin

      amax : = a [i];

      i1 : = i;

    end;

  writeln;

  writeln ('индекс первого элемента массива с наибольшим значением = ', i1);

  amax : = -1;

  i2 : = -1;

  for i : = 10 downto 1 do   // поиск последнего максимального элемента

    if a [i] > amax then begin

      amax : = a [i];

      i2 : = i;

    end;

  writeln ('индекс последнего элемента массива с наибольшим значением = ', i2);

  readln;

end.

объяснение: