Вывести числа кратные 4 на отрезке от а до б. паскаль

var

  a, b: integer;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  writeln('чиcла кратные 4 на отрезке от ', a, ' до ', b);

  for a : = a to b do

      if (a mod 4 = 0) and (a < > 0) then

          write(a, ' ');

  writeln;

end.

 

 

const n = 10; var c: array[1..n] of integer; a, b, i: integer; begin writeln('введите отрезок: '); readln(a, b); for i : = 1 to n do begin c[i] : = random(30); write(c[i],' '); end; writeln; writeln; for i : = a to b do begin if(c[i] mod 4 = 0) then write(c[i], ' '); end; end.

алгоритм (я так понимаю это паскаль (надеюсь, ибо на других языках может быть по-другому))

дано:

массив, длина 20, вещественного типа (a)

переменные:

переменная-счетчик, целого типа (i); переменная для хранения суммы, вещественного типа (s)

от i = (начало массива) до (конец массива) делать

  ввод a[i]

s присвоить  0

от i = (начало массива)  до (конец массива)  делать

  s присваивать (s + a[i])

вывод s

на всякий, прогу на паскале:

var

  a: array[1..20] of real;

  i: integer;

  s: real;

begin

  for i : = 1 to 20 do

    readln(a[i]);

  s : = 0;

  for i : = 1 to 20 do

    s : = s + a[i];

  writeln(s);

end.

1)   среднее значение -  это сумма элементов деленная на кол-во элементов. поскольку в формуле указан диапазон в1: d1 то рассматриваются элементы в первом (1) столбце и строки в, с, d. т.е. всего 3 элемента. следовательно их сумма будет равна среднее значение умножить кол-во элементов 4  * 3 = 12.  во второй формуле диапазон увеличен на 1 ячейку. и мы знаем сумму 4 элементов и сумму 3 элементов. искомый элемент - это разница  9 - 12 = -3 ответ  -3 2)   аналогичные рассуждения. ответ   -11 3)   ответ 7