• 
  • 10 February 2013
  Английский язык
  • Автор: 5633053

  

  1 Задание:сформируйте и выведите на экран массив из девяти элементов,каждые три последовательных элемента которого составлены по следующему правилу: 1-й равен текущему индексу ; 2-й равен квадрату предыдущего элемента; 3-й равен целой части от деления предыдущего элемента на текущий индекс . 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен разности квадрата и самого соответствующего элемента исходного массива. Найдите разность сумм элементов исходного и нового массивов. выведите на экран исходные и полученные результаты.

• 
  • 10 February 2013
  • Ответ оставил: emblerik

  var

    a : array [1..9] integer;

    i : integer;

  begin

    for i := 1 to 9 do

      if i mod 3 = 1 then a[i] := i

      else if i mod 3 = 2 then a[i] := sqr (i - 1)

      else a[i] := a[i - 1] div i;

    for i := 1 to 9 do

      write (a[i], ' ');

  end.

   

  var

    b, a : array [1..15] of integer;

    i, sa, sb : integer;

  begin

    randomize;

    sa := 0; sb := 0;

    for i := 1 to 15 do

    begin

      a[i] := trunc (random (100)) + 1;

      write (a[i], ' ');

      sa := sa + a[i];

    end;

    writeln;

    for i := 1 to 15 do

    begin

      b[i] := sqr (a[i]) - a[i]);

      write (b[i], ' ');

      sb := sb + b[i];

    end;

    writeln;

    writeln (abs (sb - sa));

  end.

    

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (20.10.2024) наш сайт содержит 244792 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы