Вычислить сумму модулей элементов массива, расположенных после первого элемента, равного нулю

@Doc1991 · Регистрация: 23.03.2012

в одномерном массиве состоящем из n вычислить сумму модулей элементов массива расположенных после первого элемента равного нулю.

Посмотрите что не так и исправьте пожалуйста

Pascal

const
 n = 100;
 var
 
 i,l, flagZ : integer;
 sum : real;
 mas : array[1..n] of real;
 
begin
  sum := 0;
  flagZ := 0;
  write('Input kol-vo elementov massiva = ');
  readln(l);
  for i:= 1 to l do
  begin
    write(' input MAS[ ', i, ' ] = ');
    readln(mas[i]);
    if mas[i] = 0 then inc(flagZ);
    if flagZ > 0 then sum := sum + mas[i];
  end;
  writeln('Result = ', sum:2:2);
  readln;
end.

Kodzaev · 15.06.2012, 13:10

20 строчка должна быть такой:

Pascal

1	if flagZ > 0 then sum := sum + Abs(mas[i]);

Ведь говорится

Сообщение от Doc1991

сумму модулей

@Doc1991 · 15.06.2012, 13:17 **[ТС]**

я это уже вводил но он как вроде не верно считает

@Doc1991 0 / 0 / 0 Регистрация: 23.03.2012 Сообщений: 7
	15.06.2012, 13:17 [ТС]	3
	я это уже вводил но он как вроде не верно считает 0

Опции темы