Question

Срочно!!!! НАПИШИТЕ БЛОК-СХЕМУ !!! ПОЖАЛУЙСТА Найти среднее арифметическое четных элементов в массивах А(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.

Answer 1

Не благодари, вот к картинке прикрепил)