Срочно!!!! НАПИШИТЕ БЛОК-СХЕМУ !!! ПОЖАЛУЙСТА Найти среднее арифметическое четных элементов в массивах А(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]
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
