Дана программа. Определить результат выполнения. program N02;
const A: array [1..10] of integer = (1,36,2,18,3,12,4,9,6,6);
var i,k: integer;
begin
k:=0;
for i:=1 to 7 do
if A[i] write(k)
end.
Результат:

plkg    2   01.12.2020 13:37    30