информатика допишите программу k:=0;for i:=1 to n doif a[i]>50 then k:=k+1;write ('k=', k);