Дан массив целых чисел из 12 элементов. Найти произведение элементов лежащих в промежутке...

Question

Дан массив целых чисел из 12 элементов. Найти произведение элементов лежащих в промежутке [-2,10].

Answer 1

Const n = 12;
var
  f: boolean; 
  i, p: integer;
  a: array [1..n] of integer;
begin
  randomize;
  writeln('Исходный массив');
  for i := 1 to n do begin
    a[i] := Random(21)-10;
    write(a[i], ' ');
  end;
  
  p := 1;
  for i := 1 to n do 
    if (a[i] >= -2) and (a[i] <= 10) then begin<br>      f := true;
      p := p * a[i];
    end;
  
  writeln;
  write('Произведение = ');
  if not f then writeln(0)
  else writeln(p);
end.
  

Comments

Спасибо)