Две 1) дано 4 числа. найти произведение этих чисел, уменьшенное в 2 раза. 2) увеличить число х на 1, если оно положительное, в противном случаи уменьшить его на 1

1) var   a,b,c,d: integer; begin   readln(a,b,c,d);   writeln(a*b*c*d/2); end. 2) var   x: integer; begin   readln(x);   if x> 0 then   x: =x+1   else   x: =x-1;   writeln(x); end.

ответ:

program youname;

var i,n: integer;

s: array[0..75] of integer; // объявление массива

begin

write('введите количество элементов массива: ');

readln(n); // ввод кол-ва элементов массива

writeln('----------------------------------------');

writeln('исходный массив: ');

for i: =1 to n do // перебор от первого до n элементов массива

  begin

  // если используете паскаль abc, то можно написать так: s[i]: =random(-100,100);

  s[i]: =random(100-(-100)+1)+(-100); // заполнение элементов массива от -100 до 100.

  write(s[i], '(', i, ')',' '); // вывод элемента массива с его порядковым номером

  end;

writeln;

writeln('----------------------------------------');

writeln('видоизмененный массив: ');

for i: =1 to n do // перебор от первого до n элементов массива

  begin

  if (i mod 2 = 0) and (s[i] mod 2 = 0) then // если элемент и значение массива четное, то..

    begin

    s[i]: =s[i]*(-1); // смена знака на противоположный

    write(s[i], '(', i, ')',' '); // вывод элемента массива с его порядковым номером

    end;

  end;

writeln;

writeln('----------------------------------------');

end.

объяснение: если есть вопросы, то пишите мне в лс.

ответ:

program scheme;

var xn,xk,dx,x,s,p,k,y: extended;

label rep;

begin

write('enter xn: ');

readln(xn);

write('enter xk: ');

readln(xk);

write('enter dx: ');

readln(dx);

s: =0; p: =1; x: =xn; k: =0;

rep:

if x < = xk then

  begin

  y: =exp(sin(x))*cos(x);

  writeln('x = ',x: 0: 3, '   y = ', y: 0: 3);

  if y > = 0 then

  s: =s+y;

  if y < > 0 then

  p: =p*y;

  x: =x+dx;

  goto rep;

  end

else

  begin

  writeln('s = ', s: 0: 3, ' p = ', p: 0: 3, ' k = ', k: 0: 3);

  exit;

  end;

end.

объяснение: если есть вопросы, пишите в лс.