Найти сумму отрицательных элементов, находящихся после первого нулевого элемента

@Никитос1998 · Регистрация: 04.12.2016

в одномерном массиве A(N) (N<=50) найти сумму отрицательных элементов находящихся после первого нулевого элеметна

@ZX Spectrum-128 · 14.02.2017, 17:25

Pascal

const
  n = 20;
 
var
  sum, j, k, i: integer;
  a: array [1..n] of integer;
 
begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n);
    write(a[i]:5);
  end;
  
  k := 0;
  for i := 1 to n do    
    if a[i] = 0 then
    begin
      k := i;
      break;
    end;
  writeln;
  
  sum := 0;
  j := 0;
  if k <> 0 then
  begin
    writeln('Нулевой элемент на позиции: ', k);
    for i := k + 1 to n do    
      if a[i] < 0 then
      begin
        sum := sum + a[i];
        inc(j);
      end;
  end   
  else  
  begin
    writeln('Нет нулевых элементов' );      
    exit;
  end;  
  if j <> 0 then  
    writeln('Сумма: ', sum)    
  else  
    writeln('Нет отрицательных элементов' );
end.

@Никитос1998 0 / 0 / 0 Регистрация: 04.12.2016 Сообщений: 4
		1
	Найти сумму отрицательных элементов, находящихся после первого нулевого элемента 14.02.2017, 12:11. Показов 1757. Ответов 1 Метки нет (Все метки) в одномерном массиве A(N) (N<=50) найти сумму отрицательных элементов находящихся после первого нулевого элеметна __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти сумму отрицательных элементов, находящихся после первого нулевого элемента

Решение