Ошибка деление на ноль

@Yufi · Регистрация: 11.05.2015

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

Что нужно исправить в этой процедуре, чтобы не было деления на ноль ?

Pascal

Procedure otnoshenie(G:vektor);
var
  Rez: real;
  s, s1, i, iMax, max: integer;
begin
  writeln;
  s := 1;s1 := 1;
  imax := 1; max := G[1];
  for i := 1 to n do
  begin
    if G[i] > max then imax := i; max := G[i] end;
  for i := 1 to imax do s := s * G[i];
  for i := imax to n do s1 := s1 * G[i];
  Rez := s / s1;
  Writeln('Отношение в массиве ', ' = ', Rez:5:2);
  delay(300);
  Writeln('&#143;Произведение до max = ', s);
  delay(300);
   Writeln('&#143;Произведение после max = ', s1);
  delay(300);
  end;

@Puporev · 25.05.2015, 20:31

Это нужно так

Pascal

 for i := 1 to n do
  if G[i] > max then
   begin
     imax := i;
     max := G[i]
   end;

А деление на 0 от того что либо вектор не заполнен либо содержит 0.

@Yufi · 25.05.2015, 20:38 **[ТС]**

как можно это исправить, если вектор заполняется полностью генератором случайных чисел ?

@Puporev · 25.05.2015, 20:50

Pascal

for i:=1 to n do
repeat
a[i]:=-5+random(11);
until a[i]<>0;

@Yufi · 25.05.2015, 20:56 **[ТС]**

Все равно ошибка.
Он подчеркивает строку Rez := s / s1;

@Puporev · 25.05.2015, 20:58

Если в векторе не 0 то этого не может быть. Собери мозг в кучку.

@Yufi 0 / 0 / 0 Регистрация: 11.05.2015 Сообщений: 3
	25.05.2015, 20:38 [ТС]	3
	как можно это исправить, если вектор заполняется полностью генератором случайных чисел ? 0

@Yufi 0 / 0 / 0 Регистрация: 11.05.2015 Сообщений: 3
	25.05.2015, 20:56 [ТС]	5
	Все равно ошибка. Он подчеркивает строку Rez := s / s1; 0

@Puporev Почетный модератор 64305 / 47600 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.05.2015, 20:58	6
	Если в векторе не 0 то этого не может быть. Собери мозг в кучку. 0