Телеграмм чат группы progeri

program Array1;
var N,Count,Sum,Mult,i: longint;
  a: array[1..10000] of integer;
begin
  Count := 0;
  Sum := 0;
  Mult := 1;
  writeln('Введите количество элементов в массиве:');
  readln(N);
  for i:=1 to N do begin
    writeln('Введите ',i,' элемент массива:');
    readln(a[i]);
    if a[i] = 0 then begin
      inc(Count);
    end
    else if a[i] < 0 then begin
      Sum := Sum + a[i];
    end
    else begin
      Mult := Mult * a[i];
    end;
  end;
  writeln;
  writeln('Текущий массив равен:');
   for i:=1 to N do begin
     write(a[i], ' ');
   end;
   writeln;
   writeln('Количество нулей равно ',Count, ', сумма отрицательных элементов равна ', Sum,', произведение положительных равно ', Mult);
   readln();
end.

Кста, а в задании нужно что бы юзер сам заполнял массив? Типо ж можно рандом заполнить

источник

23:27пожаловаться #6

ДН

Дмитрий Никитин... in Чат "Программист"

program Array1;
var N,Count,Sum,Mult,i,a: longint;
begin
  Count := 0;
  Sum := 0;
  Mult := 1;
  writeln('Введите количество элементов в массиве:');
  readln(N);
  for i:=1 to N do begin
    writeln('Введите ',i,' элемент массива:');
    readln(a);
    if a = 0 then begin
      inc(Count);
    end
    else if a < 0 then begin
      Sum := Sum + a;
    end
    else begin
      Mult := Mult * a;
    end;
  end;
  writeln;
   writeln('Количество нулей равно ',Count, ', сумма отрицательных элементов равна ', Sum,', произведение положительных равно ', Mult);
   readln();
end.

источник

23:27пожаловаться #7

Alice Mit in Чат "Программист"

А в чем разница

источник

23:28пожаловаться #8

ДН

Дмитрий Никитин... in Чат "Программист"

К черту массив, его задает пользователь, он знает что он задает. его не надо хранить XD

источник

23:28пожаловаться #9

зима in Чат "Программист"

Дмитрий Никитин

program Array1;
var N,Count,Sum,Mult,i,a: longint;
begin
  Count := 0;
  Sum := 0;
  Mult := 1;
  writeln('Введите количество элементов в массиве:');
  readln(N);
  for i:=1 to N do begin
    writeln('Введите ',i,' элемент массива:');
    readln(a);
    if a = 0 then begin
      inc(Count);
    end
    else if a < 0 then begin
      Sum := Sum + a;
    end
    else begin
      Mult := Mult * a;
    end;
  end;
  writeln;
   writeln('Количество нулей равно ',Count, ', сумма отрицательных элементов равна ', Sum,', произведение положительных равно ', Mult);
   readln();
end.