Напишите блок-схему ! найти среднее арифметическое четных элементов в массивах а(15) и с(9) из интервала [10; 30] program lr1; const n=9 ; m=15; type massiv=array [1..m] of integer; var a,c: massiv; i: integer; s1, s2: real; {*процедура ввода элентов массива*} procedure input (var x: massiv; k: integer); var i: integer; begin for i: =1 to k do begin write (' введи массив '); readln (x[i]); end; end; {*процедура вывода элентов массива на экран*} procedure output (var x: massiv; k: integer); var i: integer; begin write (' исходный массив'); for i: =1 to k do write (x[i]); writeln; - end; {*подпрограмма - функция обработки массива *} function sarf (x: massiv; k: integer): real; var s,kol,i: integer ; sa: real; begin s: =0; kol: =0; for i: =1 to k do if (x[i] mod 2=0) and (x[i]> =10) and (x[i]< =30) then begin s: =s+x[i]; kol: =kol+1; end; sa: =s/kol; sarf: =sa; end; {*основная программа *} begin writeln ('input massiv a'); input (a, m); output (a, m); s1: =sarf (a, m); writeln ('среднее арифметическое массива a=', s1); writeln ('input massiv c'); input (c, n); output (c, n); s2: =sarf (c, n); writeln ('среднее арифметическое массива c=', s2); end.
