Заменить все элементы массива, меньше 5, нулями

@BabbleGun · Регистрация: 19.12.2013

Author24 — интернет-сервис помощи студентам

Ребята, скоро сессия, полный завал, ничего не успеваю, помогите пожалуйста.
Одномерный массив из из 9 элементов заполнить случайным образом числами от 2 до 5. Заменить все элементы массива меньше 5 нулями. Вывести на экран монитора первоначальный и преобразованный массивы в столбик.
Заранее спасибо.

@_Developer · 20.12.2013, 13:44

Pascal

begin  
  var a := new integer[9];
  writeln('Исходный массив: ');
  for var i := 0 to 8 do
  begin
    a[i] := Random(2, 5);
    writeln(a[i]);
    if (a[i] < 5) then a[i] := 0;
  end;
  writeln('Результат: ');
  for var i := 0 to 8 do
    writeln(a[i]);
end.

@BabbleGun · 04.02.2014, 11:27 **[ТС]**

Спасибо!

@BabbleGun 0 / 0 / 0 Регистрация: 19.12.2013 Сообщений: 3
		1
	Заменить все элементы массива, меньше 5, нулями 19.12.2013, 23:30. Показов 1641. Ответов 2 Метки нет (Все метки) Ребята, скоро сессия, полный завал, ничего не успеваю, помогите пожалуйста. Одномерный массив из из 9 элементов заполнить случайным образом числами от 2 до 5. Заменить все элементы массива меньше 5 нулями. Вывести на экран монитора первоначальный и преобразованный массивы в столбик. Заранее спасибо. 0

@BabbleGun 0 / 0 / 0 Регистрация: 19.12.2013 Сообщений: 3
	04.02.2014, 11:27 [ТС]	3
	Спасибо! 0

Заменить все элементы массива, меньше 5, нулями

Решение