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

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