Составить блок схему алгоритма : даны действительные . вычислить сумму положительных и произведение четных членов данного массива, если таких членов нет, выдать сообщение

  блок-схема суммы положительных и произведение четных членов данного массива

Const nx=100; var i,j,k,n,s,a,b: integer; m: array[1..nx] of integer; sr: real; begin writeln('введите начало и конец диапазона'); readln(a,b); for k: =a to b-1 do begin i: = i+1; m[i]: = k; s: = s + k; if ((i mod 4 = 0) and (m[i]> 0)) then begin write(m[i]: 3); n: = n +1; end; end; writeln; for j: =1 to i do write(m[j]: 3); writeln; sr: =s/i; writeln('среднее арифметическое чисел, принадлежащих промежутку [a, b) = ', sr: 6: 3); writeln('количество положительных чисел, стоящих на местах, кратных 4 = ' ,n); end.

Тачки 2 одинаковые монеты например 10 руб. на одну сторону и 10 руб. на другую сторону что так чтобы в равновесии потом убери одну монетку и стать в другую если они тоже будут одинаковые стать другом летать по очереди не стоять в одну сторону по одной монетки потомстве то какая то будет тяжелее той монеты ну или легче что значит то монеты которые тяжелее или легче то есть все же одинаковые монеты а есть одна какая прекрасная может быть и тяжесть в сети монетки настоящий или ненастоящий монетки на которые будут отделяться отделяться весом такое фальшивка