Дано: массивы 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.

Program djonik2; var a, b, c: real;   y,x: real;   begin x: =10;   readln(a,b ,c);   writeln('                     ');   writeln('       y     ');   writeln('                   '); repeat y: =a-b*c; writeln(y); until x> 20; end. vb: sub find() dim c, y  as integer,   c= inputbox("введите значение переменной c",  "ввод значеня переменной c")         y = 78-24*c         msgbox y,   "вывод значений" end subвроде бы

Разъясню 1. или ложно, когда оба высказывания ложны. т.е. 0 или 0 = 0, в остальных случаях - истина. значит, не(х> 87) и не не(х кратное 9) в первом случае знак можно поменять: (х< =87), убрав при этом не. двойное отрицание убираем без последствий: (х кратно 9). наибольшее число, которое меньше или равно 87 и делится на 9 без остатка = 81. 2. 64 = 2^6 16 = 2^4 1 = 2^0 в двоичной записи десятичного числа 1 стоит на месте степени двойки, разряды нумеруются с конца, начиная с нуля. запишем разряды(их 6, т.к. первая 1 стоит на 6 позиции с конца, а ведущие нули можно убрать (как в десятичной вместо 008 мы пишем 8) 6 5 4 3 2 1 0 1 0 1 0 0 0 1 под пишем 1 там, где у нас была степень 2. это двоичная запись числа. в ней 4 нуля. ответ: 4