SCREEN 7
cls
LINE (60, 20)-(0, 80)
LINE (60, 20)-(120, 80)
LINE (0, 80)-(120, 80)
LINE (80, 40)-(80, 20)
LINE (80, 20)-(100, 20)
LINE (100, 20)-(100, 60)
LINE (20, 80)-(20, 160)
LINE (20, 160)-(100, 160)
LINE (100, 160)-(100, 80)
LINE (30, 160)-(30, 110)
LINE (30, 110)-(60, 110)
LINE (60, 110)-(60, 160)
LINE (70, 90)-(90, 90)
LINE (90, 90)-(90, 110)
LINE (90, 110)-(70, 110)
LINE (70, 110)-(70, 90)
LINE (80, 90)-(80, 110)
LINE (70, 100)-(90, 100)
CIRCLE (200, 20), 20
LINE (150, 20)-(170, 20)
LINE (230, 20)-(250, 20)
LINE (180, 40)-(160, 60)
LINE (220, 40)-(240, 60)
LINE (200, 50)-(200, 70)
Будет выведено: sr=4.5
Объяснение:
Расписал подробно и с комментариями.
program a78; //Название программы
var i,s:integer; sr:real; //Объявление переменных
const a:array [1..6] of integer = (1,7,3,6,0,10); //объявление массива
begin //тело программы
s:=0; //присваиваем s к 0, своеобразный буфер
for i:=1 to 6 do //для значений i от 1 до 6 выполняй следующие действия:
s:=s+a[i]; //тело цикла, то что будет циклиться и выполняться
sr:=s/6; //тело цикла, то что будет циклиться и выполняться
writeln('sr=',sr); //вывод значения
end. //конец программы