Question

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

Answer 1

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.

Answer 2

А зачем нужно вот это: writeln(); ?

Answer 3

После вывода массива с помощью write() каретка на той же строчке остается