Заменить все положительные элементы вектора на произведение элементов меньших числа 5

@Slain · Регистрация: 02.10.2011

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

Дан вектор F вещественных чисел размерностью Y. Заменить все положительные элементы вектора на произведение элементов меньших числа 5,вывести вектор после изменения

огромная просьба помочь написать текст программы

@I2um1 · 02.10.2011, 13:31

Pascal

var f : array[1..100] of real; y, i : integer; mul : real;
begin
   write('y = '); readln(y);
   mul := 1;
   for i := 1 to y do begin
      write(i, '-ый элемент массива = '); readln(f[i]);
      if f[i] < 5 then
         mul := mul * f[i]
   end;
   write('Результат: ');
   for i := 1 to y do begin
      if f[i] > 0 then f[i] := mul;
      write(f[i]:0:4, ' ')
   end;
   writeln
end.

Если в массиве f нет элементов меньше 5, то положительные элементы заменяться на 1.

@Slain · 02.10.2011, 14:04 **[ТС]**

как объяснить переменную mul ?

@Alex1OPS · 02.10.2011, 14:24

вспомогательная переменная. хранит произведение всех чисел меньших 5.

@Slain 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 5
		1
	Заменить все положительные элементы вектора на произведение элементов меньших числа 5 02.10.2011, 13:14. Показов 1210. Ответов 3 Метки нет (Все метки) Дан вектор F вещественных чисел размерностью Y. Заменить все положительные элементы вектора на произведение элементов меньших числа 5,вывести вектор после изменения огромная просьба помочь написать текст программы 0

@Slain 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 5
	02.10.2011, 14:04 [ТС]	3
	как объяснить переменную mul ? 0

@Alex1OPS 101 / 100 / 36 Регистрация: 14.09.2010 Сообщений: 223
	02.10.2011, 14:24	4
	вспомогательная переменная. хранит произведение всех чисел меньших 5. 2

Опции темы

Заменить все положительные элементы вектора на произведение элементов меньших числа 5

Решение