Дано: массивы r(10),q(10),p(10). сформировать массив x(3),где x(1) - сумма элементов массива r, значения которых лежат в интервале [2; 4]; x(2) - то же для массива q; x(3) - то же для массива p. вычисление суммы элементов массива, значения которых лежит в интервале [2; 4], оформить в виде подпрограммы и составить блоксхему pascalabc необходимо составлять программу "детским языком(начальным)",а подпрограмму через procedure,вот. прошу .заранее =)

Const a=10; type mas=array[1..a] of integer;         mas1=array[1..3] of byte; var r, q, p: mas;       x: mas1;       i: byte; procedure form(var r, q, p: mas); var sr, sq, sp: byte; begin sr: =0; sq: =0; sp: =0; for i: =1 to a do   begin   if (r[i]> =2) and (r[i]< =4) then sr: =sr+r[i];   if (q[i]> =2) and (r[i]< =4) then sq: =sq+r[i];   if (p[i]> =2) and (r[i]< =4) then sp: =sp+r[i];   end; x[1]: =sr; x[2]: =sq; x[3]: =sp; writeln('massiv x'); for i: =1 to 3 do write(x[i]: 3); end; begin randomize; for i: =1 to a do   begin   r[i]: =random(10);   q[i]: =random(10);   p[i]: =random(10);   end; writeln('massiv r'); for i: =1 to a do write(r[i]: 3); writeln; writeln('massiv q'); for i: =1 to a do write(q[i]: 3); writeln; writeln('massiv p'); for i: =1 to a do write(p[i]: 3); end.

Под информацией в быту(житейский аспект) понимают сведения об окружающем мире и протекающих в нем процессах, воспринимаемые человеком или специальными устройствами.(с.и.ожегов-толковый словарь языка). примеры: повышение на работе, поздравления с днем рождения и т.п.