Написать программу вычисления значения выражения 1) a = (d + c + b)*e - 5k - 1 2) c = |x + 4| - |x2 - 3x + 6|

1)var a,b,c,d,e,k : real; begin writeln('введите ,b,c,d,e,k'); read(,b,c,d,e,k); a: = (d + c + b)*e - 5k - 1 writeln(a); end; 2)var c,x : real; begin writeln('введите x'); read(x); c: = abs(x+4) - abs(sqr(x)-3*x+6); writeln(c); end.

program zapoln_mas;

var

  i, j, k: integer;

  tab: array [1..4, 1..5] of integer;

begin

  // блок заполнения массива

  for i : = 1 to 4 do

  begin

    for j : = 1 to 5 do

    begin

      tab[i, j] : = random(2);

      write(tab[i, j]: 3);    

    end;

    writeln();  

  end;

  // блок поиска элементов, удовлетворяющих условию  

  for i : = 1 to 4 do  

    for j : = 1 to 5 do    

      if tab[i, j] = 0 then k : = k + 1;

  writeln('найдено элементов: ', k);  

end.

//решение почти правильное.

//ошибка только в цикле for i : = 1 to n do

//цикл должен проверять до n - 1, т.к. в массиве из n

//элементов пар соседних элементов не может быть

//больше n - 1, например массив из 3 чисел

//1 2 3; пары : 1 2 и 2 3.

const

  n = 20;

var

  a: array[1..n]of integer;

  i, j, k: integer;

begin

  k : = 0;

  for i : = 1 to n do

    readln(a[i]);

  for i : = 1 to n - 1 do

  begin

    if (a[i] mod 2 = 0) and (a[i + 1] mod 2 = 0) then k : = k + 1;

  end;

  writeln(k);

end.