• 
  • 11 January 2021
  Информатика
  • Автор: Alinka948

  

  массив из n элементов задан случайными числами на интервале [0,3] прибавьте к каждому элементу число, введенное с клавиатуры

• 
  • 11 January 2021
  • Ответ оставил: smnoregrets

  PROGRAM A22;
  const
      max = 42;
  var
      vt:array[1..max]of byte;
      i,n:byte;
      x:integer;
  
  BEGIN
    n := max;
    writeln('Массив из n элементов будет задан случайными числами на интервале [0,3].');
    readln(n);  
    write('Введите число которое будет добавлено к каждому элементу.');
    readln(x);  
  
    writeln('Начальный Массив' );
    randomize;
    for i:=1 to n do begin
      vt[i]:=random(1,3);
      write(vt[i], ' ');
    end;
    writeln(' ');
   
    writeln('Массив c результатом' );
    for i:=1 to n do begin
      write(vt[i]+x, ' ');
    end;
    writeln(' ');
   
  END.
  

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

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

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

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

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