Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

1.Дан массив. все его элементы уменьшить на число а.
2.Найдите произведение нечетных элементов массива
В паскале , так что бы работало на компьютере и выдавала результат.

Ответ оставил Гость

Const  n = 5;

var
  a: array[1..n] of integer;
  i, b: integer;

begin
  for i := 1 to n do 
  begin
    a[i] := random(0, 10);
    write(a[i], );
  end;
  writeln();
  read(b);
  for i := 1 to n do
    write(a[i] - b, );
end.


const
  n = 5;

var
  a: array[1..n] of integer;
  i, p: integer;

begin
  p := 1;
  for i := 1 to n do 
  begin
    a[i] := random(0, 10);
    write(a[i], );
    if(odd (a[i])) then p *= a[i];
  end;
  writeln();
  writeln(p);
end.