Задача на вектора с использованием процедур и функций Опции

[Мультяшка]

Мой преподаватель по основам программирования преподаёт плохо в надежде на то, что бедные студенты отвалят ему деньжат на сессии!!
Я не хочу так делать и прошу вас помочь!!

Решите мне, пожалуйста, задачу в Паскале. В обычном паскале.

Оформить в виде функции и процедуры.
Заполнить случайными числами из [0;9] вектор b 1*6. Вывести его на экран. Найти произведение элементов, меньших числа С.

Сообщение отредактировано: Мультяшка - 5.06.2009 21:25

[Lapp]

М

Мультяшка, будь добр, прочти Правила этого Форума и приведи название темы в соответствие с ними.

И покажи свои наработки, плз.

[Мультяшка]

У меня нет наработок.

[Lapp]

У меня нет наработок.

А в чем проблема? Ты начни хотя бы.

Смотри.
Вот вектор:

var
  b: array[1..6]of integer;

Вот заполнение случайными числами от 0 до 9

  for i:=1 to 6 do b[i]:=Random(10);

Вот вывод на экран:

  for i:=1 to 6 do WriteLn('b[',i,'] = ',b[i]);

Вот нахождение произведения:

  p:=1;
  for i:=1 to 6 do if b[i]<c then p:=p*b[i];

Угу?