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

[Мультяшка]

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

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

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

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

[sheka]

имеется ввиду, что есть 6 векторов и нам надо работать с их длинами?

Я вообще не знаю этой программы..

это ты про паскаль?
если да, то давай за 20$ мы тебе решим эту задачу. 19$ LAPPу за уже предоставленое им решение, и мне 1$ за идею.

Сообщение отредактировано: sheka - 5.06.2009 22:13

[Мультяшка]

имеется ввиду, что есть 6 векторов и нам надо работать с их длинами?

Думаю, что нет. Это же первый курс, там проще..

Какие вы все мелочные. Чувак, читай первые 2 предложения в самом первом посте. Не нравится, не решайте. Людей много. Я попросила вас от безвыходности.

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

[sheka]

Думаю, что нет. Это же первый курс, там проще..

это был вопрос Лаппу.

2'Мультяшка'
что может быть проще 6 одномерных массивов?


Добавлено через 6 мин.

Я попросила вас от безвыходности.

var
  b: array[1..6]of integer;
  p,i,c: integer;
begin
  WriteLn('vvedi c=');
  readln©;
  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];
  WriteLn('p= ',p);
  readln;
end.