Блок схема во вложении.
Только сразу после элемента "начало" еще нужен блок прямоугольный с N:=20
Var a, b, c, d, e, f, final : integer;
begin
write('введите 6 чисел через пробел: ');
readln(a, b, c, d, e, f);
final := (a + b + c + d + e+ f) / 6;
writeln('среднее арифметическое равно , final);
end.
1 слайд-это 1 магабайт, для 10 слайдов нужно 10 мег.
Смесь на вектор 1.0
опустить перо
сместиться на вектор 0.2
const n = 10;
var a: array [1..n] of integer;
i: integer;
begin
for i:= 1 to n do readln(a[i]);
writeln('В прямом порядке: ');
for i:= 1 to n do write(a[i],' ');
writeln;
writeln('В обратном порядке: ');
for i:= n downto 1 do write(a[i], ' ');
end.