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

[Мультяшка]

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

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

Оформить в виде функции и процедуры.
Заполнить случайными числами из [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

[Lapp]

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

Я тоже так думаю.

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

Полагаю, sheka пошутил (да, sheka?).
Дело не в этом. Ты прости, но я не могу поверить, чтоб твой преп вот совсем ничего вам не дал.
Я дал тебе практически все, за исключением мелочей. Это был тест. Теперь я вижу, что дело не в преподавателе (или не совсем в нем). Я по-прежнему готов тебе помогать, если ты проявишь желание научиться хоть чему-то. Если нет - гудбай..

[sheka]

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

procedure vvodc;
var i:integer;
begin
  WriteLn('vvedi c=');
  readln©;
end;

procedure vvod;
var i:integer;
begin
  for i:=1 to 6 do b[i]:=Random(10);
end;

procedure vivod;
var i:integer;
begin
  for i:=1 to 6 do WriteLn('b[',i,'] = ',b[i]);
end;

procedure mult;
var i,p:integer;
begin
  p:=1;
  for i:=1 to 6 do if b[i]<c then p:=p*b[i];
  WriteLn('p= ',p);
end;

begin
vvodc;
vvod;
vivod;
mult;
readln;
end.

теперь и мне тоже 20$