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

  

  Массив a[1..15] заполняет случайными четными числами в диапазоне от -10 до 10 за тем переобразовывать массив заменяя каждый отрицательный массив на 0 . И подсчитать все эти отрицательные элементы и заменить их на 0. Помогите пожалуйста!! Срочно

• 
  • 26 January 2021
  • Ответ оставил: elenaklon

  const n=15;

  var a:array [1..n] of integer;

  i,k:integer;

  begin

  for i:=1 to n do

  begin

  a[i]:=random(21)-10;

  if a[i] mod 2 <> 0 then a[i]:=a[i]+1

  end;

  writeln('Исходный массив: ',a);

  for i:=1 to n do

  if a[i] < 0 then

  begin

  a[i]:=0;

  k:=k+1

  end;

  writeln('Преобразованный массив: ',a);

  writeln('Отрицательных элементов было: ',k)

  end.

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

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

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

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

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