Дана блок-схема. Какое значение будет иметь z на выходе, если x=13?



​

 Можно попробовать так:
# -*- coding: utf-8 -*-
n = 1
ocenki = []
while n:
    n = int(input('Оценка очередного ученика (0 - окончание ввода)  '))
    ocenki.append(n)
print('Среднее по группе ',sum(ocenki) / (len(ocenki) - 1))

Тестовое решение:
Оценка очередного ученика (0 - окончание ввода)  5
Оценка очередного ученика (0 - окончание ввода)  3
Оценка очередного ученика (0 - окончание ввода)  4
Оценка очередного ученика (0 - окончание ввода)  4
Оценка очередного ученика (0 - окончание ввода)  5
Оценка очередного ученика (0 - окончание ввода)  3
Оценка очередного ученика (0 - окончание ввода)  5
Оценка очередного ученика (0 - окончание ввода)  5
Оценка очередного ученика (0 - окончание ввода)  5
Оценка очередного ученика (0 - окончание ввода)  0
Среднее по группе  4.333333333333333

Program Task;
Const pupils = 20; subjects = 10;
Var marks: Array[1..pupils, 1..subjects] of Integer;
    marks_average: Array[1..pupils] of Real;
    i, j: Integer;
    all_marks_average: Real;
Begin    For i := 1 To pupils Do
    Begin
        WriteLn('Введите через пробел оценки ученика №', i);
        For j := 1 To subjects Do
            Read(marks[i, j]);
    End;
    For i := 1 To pupils Do
    Begin
        For j := 1 To subjects Do
            marks_average[i] := marks_average[i] + marks[i, j];
        marks_average[i] := marks_average[i] / subjects;
    End;    For i := 1 To pupils Do
        all_marks_average := all_marks_average + marks_average[i];
    all_marks_average := all_marks_average / pupils;
    WriteLn('Результат: ', all_marks_average:2:2);
ReadLn;
End.